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Wklcomk To CompuServe. 
The Largest Computer Information Service In The UNai!:RSE. 

(As Far As We Know) 



More peqsle use CompuServe than any other online 
computer information service on Earth. 

Over 380,000 members access hundreds of information, 
communications and entertainment services online. 

ThouscUids with similar interests and special expertise 
converge regularly and exchange ideas on an ever-expanding 
list of sfjecial-interest Forums. 

They have access to a combination of more financial 
information, a greater variety of shopping services, 
and deeper research resources than any other online 
computer service. Anywhere. 



Of course, it's conceivable that there's a service like 
ours somewhere that could give you more for your mcmey 
But you may have to travel a few light-years to find it. 

Instead, all you have to do is visit your nearest computer 
dealer tod^. To order CompuServe direct, or for more infor- 
mation, write: CompuServe, 5000 Arlington Centre Blvd., 
Columbus, Ohio 43220. Or call 800 848-8199. In Ohio and 
Canada, call 614 457-0802. 



Rt*d*r S«vle* No. 14S 
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and C'64 Paddle Routine 
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During the inception of Software Support InlemationBl, w« ciamined the customei support 
policies ol many Commodore mail order houses One thing became quite evident; MAIL ORDER 
HOUSES ARE NOT ALL ThE SAME!! Software Support International has developed customer 
support poltcies you can retale to. 

'CONVENIENCE: Our loll tree order line, tor instance, saves you money and adds the convenience 
ol lingfif tip shopping. Alter hours order lines are provided for tate night or early morning shopping. 
'FAST SERVICE: 24 hour processing, insures your purchase will be received in a timely manner, 
'RELIABILITY: Policies such as NOT charging your charge card or cashing your check unhl 
shipping, replacing detective materials as quickly as possible and letting you know when an ileni 
IS backordered, all adds up Id policies you can trust. 

'SUPPORT: Our lechntcat support line is manned iiy some ot the most knowledgable Commodore 
experts around. 

I3ur catalog, listing delaited inlormalion on our products as well as hundreds ol others. Is mailed 
automatically to our regular custmers. II you have never ordered from us, but would like to see 
why thousands ot lellow Commodore users have chosen us as Ihetr main source ol software and 
accessories, simply pick up Ihe phone and give us a call, or drop us a line requesting our Spnng. 
Summer 1988 catalog Remember, our business is SOFTWARE SUPPORT! 
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MANY OTHER TtTLES AVAILABLE — CALL FOR PRICES! 



'ATTENTION C-128 OWNERS 

• tul CamiiMion has teteasnl tt<e C- 1 28D mth 64K oi video RAM. 
B sluudd be seeing }26 Qtogram address Ihis lanlasnc i<« leatuiB 
ncn. 

BASK I already has Itw c^ublity ot usmg an 64K ol ndeo FUM n r«i 
mo Vw C-12S in stock condmon. yixj am all 1$X of vidw RAM Dial 
Connndiire Ml «a< nsostaiy ^"9 Basic 8 tormat and me M 64K 
ol ndea RAM pmndM you mh Ihe atuMy M scroll itnough video mem- 
o>y •• *•■ •£ wi Mn ced csiot KKHutiat 

U^ unia no*, to upgnd* ta C-1 a W MK of ndM HAM you mwU have 
tofciioeafttiouiihe cw iipei J iwUmifcdt uu i^ j i HiK fapaeoutiei 
B dHOUer and install •■ iwrte. VIM ■ tanW 
SOtUnON — We have ijtvelOfKd 1 fflodule «wl sanply phigt ih 10 Itie 
mo«nr tnani o( youi C-I2f No apMlwed toMw— M> heM dHuge 
— No haulo- 

This paduje includes h;ll easy is lo^Ki* insialiatiDn msirucMns a iest 
progran> to vaiHlate proper msiaiJaitori an<j ihe plug-in upgrade rtioduie 

ONLY $34.95 



C-128 Helper 

Helper Is an exciting new type ol Sohware lor the C-128 
Computer with 80 column monitor 

• Screen Based Oatatusing 

• User Delinable 

• Editor allows moditicalions 

• Demo included ttut serves as a Basic 7.0 Eleclranic 
reference manual 

• Screen dumps to prmtei 

• 1S81 version avaiiabie 

ONLY $24.95 



Graphic Art Disks 

Top quality graphics are nard to tmd Ttiese will delmiteiy 
please you 

• 10 Volumes available 

• Themes tollowed in most 

• Prinlmasler'"/Prinishop'" Side A compatible 

• Easily transletreo to 1M1 

ONLY $14.95 per Volume 



Elite V3.0 

Elite V3 copies the "impossible.' 

• Copies V2 ot a popular 64/128 planner, liter 
(64 only), writer 

• Leaves the Backup pioteclion tree 

Why pay tor Backups ol titles you already own? 

ONLY $6.95 



Elite V4.0 

Our Elite Series is second to none for its copying 
capatitiities 

• Elite 4 created lo copy iitles protected to the MAX' 

• Special MAX Copier included 

• Update policy included 

• Free Bonus— The Sholgun I 

ONLY $14.95 



Super Cat 

The greatest disk library caJaloger ever produced lor (he 
Commodore 64 

• Catalogs up to 640 Disks w/5000 Irties per catalog 

• Twice as many wiih 2 dr»ves 

■ Load. save. edit, change any entry 

• Prmts d variety o\ reports aryd even labels 

• Lightning fas! and easy to use' 

ONLY $24.95 



Projeci Ptvwui W« UMmbled a Iftam of 0*6 honm Archival pfogrammers *n the industry and gave lh«m Itw 
challenge at their caneeis create a professional utility sy$teni that *QuKl S9t the torw tor tti« lutuxe ot Commodore 
personal c^mpgting ■ 4 system for the neirl decatJe and iWfyond 

Hundreds ot eipert-hours Eater, ttiai leam {teiivered (c us a utility package ol sobenr^ power 2nd scope A package 
thai could turn an average faciei mio a superstar A package aeated at tlie very bour^dary between wtut is arkd a npt 
p osai bie. A package caoed Reregade 

Renegade takes the very t>esi ideas trom the past and re^aates them, con^ning state ol (he an ^c^iques with a 
conceptuaJ grasp ot ttne luture (X confuting The resifQ Is ti^namic - dassic utiirttes are franstomied trrto muscaulw 
components Ot a system designed fv speed, power, and ftexfeWty 

Here m Son* el the Faatma BuM hno The RENEGADE! 



Sir>gle or Dual Htgh Speed Data Copier * 

Single or Duat State ot the An Ntbbler * 

Directory Editor Organize your Disks * 

GCR Editor : For Itte Experienced Hacker * 

Gbos'- Moduat parameters and tools * 

^00 Parms: Fof (hose tough to backup disks ♦ 

Ne«r Parameter up<jates only S9.95 each '* 



Single c Dual U'tra Fast File Copier 
Capable ol Archiving RapidLok Pfotection 
ScroHmg M L Monitof with Drive Mon 
EiTror Scanner with Unique Sector Editor 
Byte Pattern Scanner High Speed Searches 
Upgradable Sub Menu: New loois m the works 
Ma|Or RENEGADE upgrades only S9 95 each 
Technical support available ol course 



CompaiablewiIhC-64-128 with 1541 71 Dnves * 
Renegade comes with over 225 parameters, and additional parameters are available every 2 mofiihs< Also. Rervegade 
program updates are available to registered owners 3 times a year lo ensure thai Renegade wilt always be a step ahead 
ol anything else on the marhat' 

Now nathing can stop you from taking TOTAL control of your software! Renegade gives you Itte most advar>ced loots 
on the marhel lor one remarkabry ^ow pnce. And. unftke some compar^ies \\^a.^ clatm to sell utililtes unlimited in power, 
Renegade is produced by a cornpany that knows that the customer is our most valuable asset 

Renegade: Nait generation software • for the next generation hacfaar. 



Only $34.95 



Graphic Label Wizard 

This IS the uiiimaie laDei uitiiiy 

• Dalaoasing witti graphtcs included 

• Suppons Commodore as well as Epson compatible 
pfinters 

• Piinimasier" Prmtshop'" SoUware Soiulions" 
campaiiDle 

• 1581 uansleraM 

• Satislaction guaranteed' 

ONLY S24.95 



C-128 Cannon 

The total copy/ulililies package created lust lor Ci28 
owners 

• Nibblers— Single or Dual 

• Fast Copiers— Single or Dual 

• File Copiers— Single or Dual 

• Scanners— Error ano Density 

• 1581 Ulililies 

• Directory editing 

• 100 Free Kracker Jan Farms 

• 1541/71/81 Drives Supoorted- Single or Dual 

ONLY S34.95 



Kracker Jax Revealed I & II 

Our knowledge ot prolection schemes has made us 
larrious Now lind out how we do what we do Iiest Our 
Books are your key to REAL knowledge OTHERS ONLY 
GIVE SURFACE INFO—we dig deep— much deeper We 
can show you exactly how today's copy protection 
preve/ils you from backing up your software. 



Revealed Book I with Reset Button 
$23.50 



Revealed II with Hesmon Cartridge 
S23.50 



FLASH! Kracker Jax 

Earns a 5 Star Rating 

In INFO'S May-June "88 Issue 

KrKkar Jti is the powerful parameter-based copying 
system that has taken the country by storm' What IS a 
parameter' Its a custom program that allows your tS4l 
or 1571 disk drive to strip ALL copy protection from your 
expensive software, leaving you wilti UNPROTECTED. 
TOTALLY BROKEN BACKUPS that can even be copied 
with a simple tasi copier' 

We declare Kncktr Jax lo be the best system of us 
kind on the market today' A bold claim' Mayoe 

But don'! lake our word lor it— it you want the REAL 
story on how good Kracktr Jax is. ius! ask one ot our 
customers Oon'l worry You won't have any problem | 
tinding one 

Vols 1-2-3-4 Only $9.95 ea. 
Vols 5-6-7 Still Only $19.95 ea. 



Hacker's Utility Kit 

Stale ot me art tools for the compulenst ready lo lake 
control ol his soltware library' 

• Wlxile Otsk scanners 

• GCR Editor 

• Fast Oala/NibUe copiers 

• File tracer 

• Byle Pattern Finder 

Much, Much More— $19.95 



Sysres ' Enhanced 

The best— and we mean 8esl Base enhancement system 
for (he CW 

• Adds over 25 major commands to Basic 

• Extended Super 003 -Wedge 

• Scrolling through Basic 

• Renumber. Trace. Search, and many other (ealures too 
numerous to mention 

• 1541/71 last loader included 

• M/L monitor Irom Basic 

• Transferable to tsai Disk 

ONLY $39.95 
The best money you'll ever 
spend on your Commodore! 
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DEALERS — WE HAVE THE SUPPORT YOU'RE LOOKING FOR! 
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e have several longer, possibly more sig- 
nificant features in this month's issue that 
we could begin this column by talking 
about- but to us, this month's biggest news 
is the return of Buck Childr^s with his first full-length pro- 
gram in six months. We join Buck in thanking the many 
readers who've written to ask about his progress. Happily, 
the eye ailment that sidelined our most prolific program- 
mer is alt but licked, and Buck's output should rise stead- 
ily in the months to come. (As for Buck's program, Vari- 
Scan, it safeguards C-64 and C-128 programmers from re- 
using variable names and crashing works in progress. Turn 
to page 30.) 

After good news like that, we hope >ou won't find our 
description of the rest of the July Ahoy! too anticlimactic: 

• AJs Dale Rupert points out, past Rupert Reports have 
involved connecting your computer to photo-cells, LED's, 
potentiometers, and relays. This month Dale helps you make 
the Thermal Connection, and turn your 64 or 128 into a 
digital thermometer. What's next: a Commodore-driven va- 
cuum cleaner'? Satellite dish? Roller coaster? Only time will 
tell. (Tbm to page 32.) 

• Window Dressing means curtains for those drab displays 
called up by the C-128's WINDOW command. Richard Cur- 
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DISK M/MKAZINE fl 

The money-satving subscription rates for Ahay! ma^zine and the Ahoy! 
program disk are now even lower! 

If you subscribe to the Ahoy! Disk Afagozine- magazine and disk pack- 
aged together -you'll receive the two at substantial savings over the indi- 
vidual subscription prices! 



SINGLE 

ISSUE PRICE 

(12 ISSUES) 

Magazine: $ 35.40 

Disk; 5107.40 

TOTAL: S142.80 



SEPARATE 

SUBSCRIPTION 

PRICE (12 ISSUES) 

Magazine: $ 23.00 

Disk: $ 79.95 

TOTAL: $102.95 



AHOY! 
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Use the postpaid card bound between pages 50 and 51 of this magazine 
to subscribe. (Canadian and foreign prices are higher.) 

The Ahoy! Disk Magazine is also available al Waldenbooks and B. Dal- 
ton's bookstores, as well as other fine software outlets. 



cio's quartet of routines let you print attractive boxes and 
headings, manipulate text, and more. (Turn to page 37.) 

• Adventure game fens registered one complaint about 
Uiulj of Terror (Oct. '86) and Crypt of Fear (Feb. '88)- 
their fingers were trembling so hard that they couldn't type 
the commands. So Cleve Blakemore designed Tomb of Hor- 
ror, the last entry in his 3-D trilogy, to work entirely via 
pulldown menus. If you find yourself shaking so much that 
you can't wiggle a joystick, you're on your own! (Turn to 
page 48.) 

• Mindful that some readers don't like typing in listings 
of 8-1- pages in length, Cleve dfers two games that can easily 
be entered in a single sitting. Guerilla lets you go bananas 
gunning down terrorists who shoot at you from the mins 
erf bombed-out buildings. (TUm to page 16) And Dinar Bug- 
gy dispatches you on an equally patriotic mission— to re- 
capture the stolen artifact of the Apollo space program and 
drive it across treacherous terrain to safety. (Turn to page 15.) 

• Once you've played all three of the above and asked 
the inevitable question— How does Cleve Blakemore do it?" 
-refer to Programming Ybur Own Text Games, in which 
Cleve continues to reveal his secrets. (Turn to page 13.) 

• Once again, Amie Katz and the undersigned have been 
chosen (along with Betsy Staples of Atari Explorer) to select 

the programs for inclusion in this year's 
CES Software Showcase. We're proud 
to feature game reviews by Amie and 
his partners, Bill Kunkel and Joyce 
Worley, in every issue. This month's 
Entertainment Software Seaion covers 
Stealth Mission, Speed Buggy. Wbod- 
en Ships & Iron Men, and Plasmatwn. 
(T\im to page 20.) 

• If you've been putting off looking 
into our COMAL Column, you're al- 
most out of time. Richard Herring pre- 
sents the penultimate installment in this 
issue. (Turn to page 45.) 

In case anyone is still confused by 
our division into Ahoy! and Ahay!'s Am- 
iga User, remember -the next Ahov! for 
the C-64 and C-128 will be the Sep- 
tember issue, on sale August 2. On the 
stands next month will be the second 
issue of ^oy!'s AmigaUser—caver- 
dated August, and on sale July 5. And 
remember, if you're upgrading to the 
Amiga and want to switch your Ahoy! 
subscription to Ahoy!'s Amiga User, you 
can -but please call 815-734-4151 or 
vfriteAhoyt, RO. Box #341, Mt. Mor- 
ris, IL 61054. Do not call us at our New 
York number with subscription prob- 
lems—we can't help you from here. If 
you have any non-subscription ques- 
tions, we'd love to help you. Call or 
write anytime. —David AUikas 
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UTILITIES 



THE SUPER CHIPS 
Custom Operating System for the C128 

Three 16K ROM chips that add several powerful features to 
Basic 7.0 including FIND, CHANGE...TH1S..T0...THAT. TYPE. 
UNNEW, COMBINE. MERGE. START. FILE. EDITOR and morei 
Simultaneous split screen directories of devices 6 & 9. Compatible 
with 1541/1571/1581 and virtually all software and peripherals. 

Only '49"! 

Super Chips, Custom Operating System for the CI 280 • Two 
32K ROM chips • Only *49''! 

Super Chip, Custom Operating System tor the C64 - One 16K 
ROM chip - Only *29'*! 

Super Chip, Custom Operating System for the 64 mode of the 
Cl28-Only*29"! 

SUPER AIDE 

All-purpose uiitiiy program for the C64 provides: 



• Bi-direclionai scrolling 
» Auto Line Deletion 

• Trace tunelion 

• Disassembler 

• Lo-Res Screen Dump 

• Number conversion 
(10, hex, binary) 

• Append files 

• Format — short 
new/complete new 

• Menu-driven 

• Change THIS TO THAT — 
specified slnng and replace 

• And much, much more! 
Super Aide, the complete programrner's tool kit Only gOQ QR1 



Auto Line Numbering 

• Renumber 

• fi/IL Monitor 

• List all variables lo screen 

• Hi-Res Screen Dump 

• Restore newed Basic 
program 

• Change Device number 

• Packed Line Editor 

• Determine file load 
address 

search lor all instances of 
with second specified string 



GAMES 



EYEOFTHEINCA 

Four text adventures on one disk tor the C64 and Apple II series 
computers. Eye of the Inca Shipwrecked, Son of Ali Saba and Peril s 

of Darkest Africa. Four perilous adventures for only *1 9**! 

REVENGE OF THE MOON GODDESS 

Four text adventures on one disk for the C64 and Apple II series 
computers. Revenge of the Mocwi Goddess. Frankenstein's 
Legacy, Night of the Walking Dead and The Sea Phantom, Four 

terrifying adventures for only *1 9**! 

SEX VIXENS FROM SPACE 

Three text adventures for the C64 and Apple II series (or 
IVIATURE ADULTS ONLY. Sex Vixens from Space, Bite of the 
Sorority Vampires and Hatchet Honeymoon. Three sizzling adult 

adventures for only *29'*! 



S3495! 



■■ . . . excellent, efficient program that can help you save both 
money and downtime. ' 

1S41-1S7i Compute.' 's Gazefte 

OfiiVc AUvriMEriT ^^^' "^ 

1541/1571 Drive Alignmeni reports the alignment condition of the disk 
drive as you perlorm adjust menis. On screen help IS available while the 
program is running. Includes features for speed adjustment. Complete 
instruction manual on aligning both 1541 and 1 S71 drives. Even includes 
instructions on how to load alignment program when nothing else will 
load! Works on the CM.sx64.ci2a ineHher64or128mode. 1541,1571 
ineittier 1541 orl571 mode! Autoboolstoallmodes Second drive fully 
supported Program disk, calibration disk and instruction manual only 

( ^^'l ) Super 61 Utilities is a complete utilities package lor ihe 
n5^__^ 1581 disk drive and C128 computer. Among the many 
7*LiH^" Super 81 Utililies features are: 

• Copy whole disks from 1541 or 1571 format to 1581 partitions. 

• Copy 1541 or 1571 files to 1581 disks 

• Backup 1561 disks or files with 1 or 2 I58l's 

• Supplied on bot h 3 Vj " and 5 Vi " diskettes so that it will load on either 
the 1571 or 1581 drive. 

• Perform numerous DOS functions such as rename a disk, rename a 
file, scratch or unscraich files, lock or unlock files, create auto-boot 
and much more! 

Super 81 Utilities uses an option window to display all choices available 
at any given time. A full featured disk utilities system lor the 1581 lor only 

Super 81 Utilities is now available for the C64! 

S3995J 



RAmpoi 

'^ / '^ RAM-^OISt 



RAMDOS IS a complete RAM based 
"Disk" Operating System for the 
Commodore 1700 and 1750 RAM 

expansion modules which turns all or ' RAM-DISK 

pan of the expansion memory into a I ightnmg fast RAU-DI SK , RAMDOS 
behaves similar to a much faster 1541 or 1571 floppy disk except that 
the data IS held in expansion RAM and not on disk Under RAMDOS. 
a 50K program can be loaded in Vi second. Programs and files can be 
transferred to and from disk with a single command. RAMDOS is 
available for only $0095 1 



SUPER BIKE 

Action-packed, fun-liiied motor cycle arcade game 
for the C64. Race the clock in Moiocross. Enduro. 
Supercnjss or Trials. Fly through the air on spectacular 
jumps. Bounce over woop-de-doos 
Avoid logs, trees, water holes, brick walls, other bikers, etc as you vie 
for the gold cup. 
Thrilling Super Bike action for only ^4 a95i 

GALACTIC FRONTIER 

Exciting space exploration game for the C64 Search for life forms 
among the 200 billion stars in our galaxy. Scientifically accurate 
Awesome graphics! For the serious st udent of astronomy or the casual 
explorer who wants to twldly go where no man has gone before 




Only $29951 



Order with check, money order. VISA, MasterCard, COD. 
Free shipping & handling on US, Canadian, APCFPO 
orders. COD & Foreign orders add $4.00 




Order From: Free Spirit Softwarc, Inc. 

965 W. Hillgrove, Suite 6 

LaGrange, IL 60525 

(312) 352-7323 

1 -800-552-6777 

For Technical Assistance call: (31 2)352-7335 



In England contact Financial Systems Software 0905-61 1 -463 



RsadAr Service No. 15S 



c 
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GAMSS FROM COSMI, DATASOFT, iA, MICROILLUStONS • C-128 BBS 
PROGRAM • DISK DRIVE ACCESSORY • CP/M HEWS • MUSIC SOFTWARE 
• 1581 UmimS FOR C-64 • ONUNE EXPORTER SERVICES • SEX 
EDUCATION • DESKTOP PROGRAM • TEACHERS' CONTEST • Al TYPING TUTOR 



IXPORTER tlllVICES 

A new online system offered through 
CompuServe allows US firms to iden- 
tify export opportunities and speed up 
the processing of export licenses. Un- 
der the terms of a contract with the US 
Dept. of Commerce (DOC), exporters 
can submit their license applications to 
DOC electronically. A DOC licensing 
officer will process the application, 
send a response to the exporter elec- 
tronically, and follow up with a hard 
copy of the validated license. 

Also new to CompuServe is a data- 
base providing detailed information, 
updated daily, on worldwide trade op- 
portunities. Exporters can search the 
database by country, SIC code, post- 
ing date, and type of procurement. 

CompuServe, 614-457-8600 (sk ad- 
dress list, page 12). 

ILLINOIS SHOW 

The third annual Chicagoland Com- 
modore Computer Fest is scheduled for 
August 28 at the Exposition Center at 
the Kane County Fairgrounds in St. 
Charles, IL. National speakers and 64, 
128, and Amiga vendors will be fea- 
tured. Admission is $5.00. 

Computerfest, 312-897-5788 (see ad- 
dress list, page 12). 

LET ME TELL YOU VOUT... 

Why embarrass yourself by your lack 
of knowledge? Birds TV Bees lets your 
kids learn the &cts of life interactive- 
ly. The program, designed by a team 
of psychologists and consultants, in- 
cludes treatment of reproduction and 
child development, plus a special sec- 
tion on protecting children from stran- 
gers. The program is designed to let 
children of any age and either gender 
receive information specific to their 
needs. Price is $49.95 for the C-64, 
S59.95 for the Amiga. 
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Sex education for kids of all ages, 
READER SERVICE \0. 174 

IntraCorp, Inc., 305-252-9040 (see 
address list, page 12). 

SUPER 81 FOR THE 64 

A C-64 adaptation of Super 81 Util- 
ities joins the C-128 version intnxluced 
earlier hy Free Spirit. Super 81/64 will 
copy whole disks or files from 1541/ 
71 drivK to the 1581. The user can back 
up disks or files with one or two 154rs, 
157rs, or ISSl's, or any combination 
thereof. Also included are a full-fea- 
tured sector editor and utilities for par- 
titioning, scratch and unscratch, lock 
and unlock, rename, format, and di- 
rect DOS commands. 

The program is supplied on both 
5 W" and 3'-^" disks, and boots on either 
device 8 or 9. Price is $39.95; ship- 
ping is free. 

Free Spirit Software. Inc., 312-352- 
7323 (see address list, page 12). 

PAPERCLIP PURLISHER 

RiperClip Publisher ($4995) offers 
all the text formatting, layout, and de- 



sign capabilities needed for creating 
multiple-column page layouts for news- 
letters, flyers, price lists, menus, greet- 
ing cards, and the like. Documents up 
to 50 pages in length are supported. 
Other special features are the ability 
to temporarily hold and work on text 
or graphics outside a given document, 
and a "refreshing" feature that automa- 
tically updates any altered section. 

Electronic Arts, 415-571-7171 (see ad- 
dress list, page 12). 

MUSIC SOFTWARE 

Low-cost music prograias for the pm 
or semi-pro: 

Passport Sequence Editor ($14,95) 
allows step-editing of the MIDI 4-t- and 
8-f- sequence files. 

Studio One Editor ($14.95) works 
with Syntech's Studio One program. 

DX21/27/100 Ubrarian ($14.95) stores 
banks and individual voices from Ya- 
maha's 4-operator FM synthesizers. 

Generic Ubrarian ($19.95), a 32K 
system-exclusive recorder, works with 
any instrument capable of bulk Sys-Ex 
dumps. 

Sound Ware (see address li.st, page 
12). 

CP/M STARTER SET 

ITie PDS CP/M Starter Set (S29.95) 
is comprised of four disks of utilities 
and applications for the C-128, plus 
printed documentation explaining boot- 
ing up. transient and resident com- 
mands, and creating and dissolving li- 
brary files. 

Public Domain Solutions, 813-378- 
2394 (see address list, page 12). 

DRIVE ENHANCEMENT 

Microteq's Drive Box ($29.95) per- 
mits hardware configuration of the 
1541, the 1571, and the C-128D's built- 
in drive. The box allows for setting the 



CHIP LEVEL DESIGNS PRESENTS 






fHE SUPER-FAST PARALLEL DISK OPERATING SYSTEM 
FOR THE COMMODORE 64 AND 1541 DISK DRIVE! 



•All disk access is handled at super-fasi parallel 
speed! (LOAD, SAVE, directory, SEQ & REL 
files, scratch, validate, format). 

•Designed to support multiple drive systems. 

•Parallel Centronics printer support with file 
spooling capability. 



•Many useful, timesaving features (DOS 
Wedge, screen dump, resident monitor). 

•No loss of compatibility. 

•Far too many features to list in this ad . . 
perhaps in this magazine! 
(Call or write to get all the details!) 



and 



. . . and if you want the ultimate^ get HapiDOS Professional! 

•Gives even faster disk access! 'Provides 40 track extension (749 blocks free!) 

•Uses 8k RAM track buffering and hardware •Adds 20 new disk commands (i.e., lock files, 

GCR conversion! change disk name). 

Here's what people are saying about RapiDOS; 

Mike J. Henry (Basement Boys Software) - "It's amazing how incredibly fast it Is, I'm impressed!" 

Mitch S. (Eaglesofl Inc.) - "Very fast, very reliable, and very compatible. I love it!" 

J.F. Jones (ADP) - "Superbases' speed is increased greatly, and it's now a dream to use!" 



Function 


Normal DOS 


RaplDOS 


RapiDOS Pro 


Your System 


Load 202 blocks 


128 sec. 


15 sec. 


3 sec. 




Save 202 blocks 


196 sec. 


98 sec. 


8 sec. 




Format 35 tracks 


90 sec. 


24 sec. 


18 sec. 





Compare these speeds with your current system and see why RapiDOS puts the C-64 into a different league! 

RapiDOS requires a socketed kernal ROM U4, and is available in versions for the 64c, 128 in 64 mode, 

and 1541c (please specify when ordering). RapiDOS is easily upgradeable to the Professional Version. 

RapiDOS Professional drive controller is (c) '87 mts data GbR, the creators of the best European parallel systems. 

At these affordable prices no C-64 owner should be without RapiDOS! 
RapiDOS $49.95 RapiDOS Professional $99.95 





IMASS DUPLICATOR 1541 

• For the C64/128 with a single 
1541 disk drive. 

•15 second, 4 pass backup for 
standard disks! 

• 25 second full GCR Super Nibbter, 
the most powerful yet! 

•9 second disk format! 

•Fast loader! 

•Quick installation. $32.95 

•Can be upgraded to RapiDOS 

MASS DUPLICATOR MSD 

•A must for any MSD SD-2 owner. 
•15 second standard disk backupl 
•18 second full GCR Quick Nibbler! 
•9 second disk format! $25.95 

MSD AUTO COPY ROM 

• Adds new Fast Backup 
commands! 

• Turns the MSD SD-2 into a 
dedicated copying drive 
(no computer needed). $29.95 



C-64 BURST- ROM 

•Gives the 64 'Burst Mode' when 

used with a 1571 or 1581 

disk drivel 
•Loads 100 blocks in 6 seconds 

on a 1571, 4 seconds on a 1581! 

• Fast directory, SEQ, and REL 
file access! 

• Built in DOS wedge! 
■Simple installation. 

(Kernal ROM U4 must 

be socketed) $32.95 

C-128 BURST- ROM 

•Lets the 128 run at 'Burst' speed 

when in 64 mode! 
•Provides the same features as 

the C-64 Burst-ROM! j__ ._ 



STILL TO COME 

• MSD SD-1 Fast Copier! 

• 1571 Mass Duplicator! 
•1581 Utility Pack! 



TURBO 64 

•Speed-up cartridge for the C-64, 
just plug it in! 

•Adjust the clock rate from 100 khz 
(1/10 normal) to 4 mhz (4x normal)! 

•Uses 8/16 bit 65816 microproc- 
essor (same as the Apple j[gs... 
but twice as fast)! 

•Spread sheets, BASIC, (light 
Sims, graphics, and now GEOS... 



all are accelerated! 



$189.95 



CHIP LEVEL DESIOIMS 

^^^ Cash. Check. «Mn 

^^A Money Order. ^^^ 

^^^ M C. or Visa ^"^ 

$3.00 shipping on ati order; 

CO D.'s add S3.00 

P.O. BOX 603 
ASTORIA, OR 97103-0603 

(503) 861-1622 

De.Tlpf. DisinDulLir, 8, Group Pricing AvailaOle 
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device number from 8-11, as well as for 
writing to the reverse side of the disk 
without cutting an extra notch. Six sol- 
der connections are required in order 
to install the 3'/& x 2 x P unit; or, Mi- 
croteq will install it in your drive for 
SIO plus shipping (you must insure your 
drive). 

Drive Box is available through Soft- 
ware Support and Free Spirit. 

Microteq Systems. 701-232-4033 
(see address list, page 12). 

KITIK lUPPORT 

Computer accessories from Ketek, 
makers of the Command Center line 
of system enclosures for the 64, 64C, 
and 128: 

The Sound Trap (S49.95) encloses 
almost any 80 column printer with 
sound-absorbing foam and wood to re- 
duce noise by up to 90% . Included are 
an acrylic lid and a slide-out shelf for 
catching printout. 

The Remote Power Controller 
($89.00) provides outlets for up to five 




devices, each offering 3-way protection 
against suites and spikes. The base unit 
can mount behind or under your desk, 
while the 3% x 5% x VA" controller 
is kept close at hand. 
Data Director ($39.95) makes it pos- 



A Powerful Wordprocessor 

for the Commodore 128'' 







Selected 

for the 1987 

CES Software 

Showcase 

Award. 



From the author of Fontinast^r 11 comes Fontmaster 128. 

an enhanced version for the Commodore 128. This 
powerful word processor with its many different print 
styles (fonts), turns your dot matrix printer into a more 
effectual tool. Term papers, newsletters, and foreign 
languages are just a few of its many applications. 



* Program disk with no protection - uses hardware key 

* Supplement disk includes foreign language fonts 

* 56 Fonts ready to use 

* Font editor/creator included 

* On screen Font preview '*'*#*** 

* 80 column only $69.95 

* Supports more than 110 printers 

* Includes a 102,000 word Spei! Checker 

Commodore 128 is a registered trademark of Commodore Business Machmes. Inc 
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Inc. 2804 Arnold Rd Salina. Ks 67401 (913) 827-0685 



Pete Rose 
Pennant Fe- 
ver incorpor- 
ates the strat- 
egies of the 
Reds star. 
You can hit, 
run, field, 
and presum- 
ably throw 
body blocks 
at opposing 
catchers. 
READER 
SERVICE 
NO. ITS 



sible for two 6-pin serial devices to 
share one 64. or for two 64's to share 
one serial device. The unit works with 
all Commodore-compatible drives, 
printers, and interfaces. 

The Tilt/Swivel Monitor Stand 
($14.95) lets you turn your monitor to 
the desired angle, with cushioned pads 
to hold the monitor securely in place. 

Ketek, 319-338-7123 (see address list, 
page 12). 

OAMIS 

Scheduled for C-64 release in No- 
vember, Pete Rose Pennant Fe\'er lets 
you guide an expansion team through 
a 10-season. 24-team race for the pen- 
nant. Rather than looking down on the 
diamond from overhead, you experi- 
ence the action from the perspective of 
one of Charlie Hustle's teammates. You 
pitch, hit, run, field, throw, and steal 
as you would on a real diamond. Man- 
agerial sti:ategies actually employed by 
Itose are available. In addition, you can 
act as General Manager, drafting and 
acquiring computerized pisyers while 
maintaining control of the club's finan- 
ces and player salaries. Is there a collu- 
sion option? Wait and see, 

Activision/Gamestar, 415-960-0410 
(see address list, page 12). 

Two for the 64 from EA: 

Scheduled for late summer release, 
Vihstetand ($49.95) challenges players 
to survive in the post nuclear year of 
2087. As you and your band of Desen 
Rangers roam the southwestern United 
States, trying to help other survivors 
rebuild and live in peace, you'll en- 
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NEWS I SAVE OVER 35% 
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Tank's-eye view of the WWII clash. 
READER SERVICE NO. 176 

counter a cast of hundreds, including 
mutant viUains who endanger the pop- 
ulation. At certain points in the game, 
you'll be directed to the included Par- 
agraphs book which enhances the detail 
of the game and provides descriptive 
text. After the game is over, you may 
return to explore locations you were not 
able to the first time around. 

Patton vs Rommel ($29.95), designed 
by Chris Crawford, lets the player be- 
come either General Blood and Guts 
or the Desert Fox on D-Day. Each 
commander has numerous infentry and 
armor divisions at his disposal, plus 
a historically and geographically accur- 
ate map of 150.000 locations. 10 dif- 
ferent kinds of tactical orders are pos- 
sible, and each division can have up 
to 32 different orders at a time. To give 
orders, the players just point at a divi- 
sion and an objective-the army does 
the rest. As the strategies come to life, 
players can watch the battles take place, 
with realistic sound effects. For the 
C-64. 

Electronic Arte. 415-571-7171 (see ad- 
dress list, page 12). 

Rommel stars as well in Tobruk 
($19.95), in which you command 10 
divisions of the Afrika Korps in an at- 
tempt to capture the key Libyan port 
city. Action can be controlled from tac- 
tical maps, or directly in land and sea 
battles. Players view the batde fixnn the 
turret of a desert tank, with access to 



machine gun controls und mines. Air 
tactics include ground attacks, air-to- 
air skirmishes, and long-range bomb- 
ing. The C-64 simulation is designed 
by DatasofE and distributed by Elec- 
tronic Arts. 

Electronic Arts/Datasoft, 415-571- 
7171 (see address list, page 12). 

Under Fire! ($34.95) consists of nine 
WWII scenarios involving the US, 
Germany, and the Soviet Union, plus 
a construction set enabling the C-64 
gamer to create more. 

Avalon Hill, 301-254-9200 (see ad- 
dress list, page 12). 

Three C-64 racing %2.m&s- Richard 
Petty's Talladega. Shirley Muldowney's 
Top Fuel Challenge, and Grand Prix 
Motor Mania -have been combined 
into Cosmi's Motor Racing Trilogy 
(S24.95). 

Cosmi, 714-240-8985 (see address 
list, page 12). 

Black Jack Academy will teach you 
to play the game, or help you brush up 
your skills. Online help explains all 
play options and coaches you along. 
Special ease-of-use features include 
multiple play speeds, cani counting op- 
tion, player card total option, money 
management guide, and preset multiple 
table rules from Las Vegas, Reno, and 
Atlantic City, For the 64 or Amiga; 
$39.95. 

Microniusions, 818-360-3715 (see 
address list, page 12). 

Bridge Baron 11 (S39.95), an im- 
proved version, plays the complete 
game of bridge, allowing you to bid and 
play more than a billion different deals 
with your C-64 as both your partner 
and your opponents. New features in- 
clude two-person mode, rubber bridge 
scoring, automatic play mode. Baron's 
recommended bids and plays, the abili- 
ty to claim or concede tricks, simpli- 
fied card play, weak 2-bids, and die op- 
tion to save deals to disk. 

Great Game Products. 800<iAMES- 
4-U (see address list, page 12). 



CP/M 

Poseidon has published die spring 
'88 addendum to its catalog of CP/M 
software, priced at Si .75 plus a 45c 
SASE (if piling by check, it must be 
made out to Ralph Lees). New software 
prices are $16 for the first disk, S12 for 
the second, and $7 each for all subse- 
quent ones. 




PLUS 4 ' SOFTWARE 

Turn your home computer inio a house- 
hold ilnance organizer, learning center, 
and entertainment center. The Plus 4" 
Software Package contains ttiree floppy 
diskettes compataljle with the Com- 
modore* Plus 4"" computer. Due to 
special arrangements with the manu- 
facturer, you save. 

Software Package ContabiK Fun and 

Games disk witti more than 20 Imagi- 
native games for the whole family to 
enjoy, plus music and graphics selec- 
tions. The second disk is Utilities/ 
Finance. It can help you organize and 
maintain files, lists and information. The 
Finance section is designed to help you 
organize your personal and home fin- 
ances and investments. The third disk is 
Education. A fun way for students to learn 
more about math, language, geography, 
science, history and more. 
Compute the Savings! You don't need 
a computer to figure out this is an 
exceptional value. ..one that everyone in 
the family will enjoy. 

Mfr. Ust Price ^30.00 



Uquidation 
Pric^'Set . . 



ns 



Hem H-3628-7235-294 
S/H: S4.00/set 



Credit card customers can order by 
phone, 24 hours a day, 7 days a week. 

Toll-Free: 1-800-328-0609 



SEND T O: 

SQOD Authorized UquMator 

14DS Xanlum Lane N/Minneapollg. MN S5441 -4494 

Send__. Plui/4'- Software $•*(•) Hem H-3628-7236-294 

at Si9 jw sei plus S4 per set lor insured s^ipptncj. iiandhno 

(Minnesloa fesidente add 6*b sales tax Sonv. ™ C.O.D. 

orden.) 



z; My check w money order i* enctosed iNo delays irr 
processing orders paid by check ) 

PLEASE „i^^ „t7-iPSl 
CHECK □! «■ I D r J a 



Acct No 

PtfASe PRINT CLEAflLY 

Name 

Address 

City 

ZIP 



-Eip- 



_Apl»_ 



.Ptwne J_ 



Sign Here 
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Near Letter Quality 

You don't have to buy a new 
printer if you need to improve the 
print quality of your correspon- 
dence. 
We have an easy-to-install kit (or you 

EPSON FX-80/100 

incl. + series Call 

EPSON RX-80/100 

incl. + series ....7 Call 

EPSON MX series Call 

STAR Gemini 10X / 15X $52.50 

STAR Delta 10/ 15 $52.50 

Checks or COD only. Florida residents 
add tax. 

Order information for STAR Gemini 
printers: 

The largest integrated circuit on the 
printed board is either a type D 7800 
or D 7801. Please submit that informa- 
tion with your order. 

The kit for the EPSON printers (Dots- 
Perfect) is a trade mark of Dressel- 
haus Computer Products. 

ESP Corporation 

PO Box 1248 

Holmes Beach, FL 34218 

Phone: (813) 778-5773 



NEWS 
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GET MORE 
PLEASURE 
FROM THE 
BIBLE WITH 



V^ LANDMARK 

The Computer Reference Bible 

Here's what 1-A.N'DNL\RK wiU oiablc ynu ia do 

• SKA RCTI Tl IROUGl I TI OH lilBIX—FmiJ 
I';-.: J -its, words or sentences. 

^ Dl M:L0P TOPIOVL riLES-C<^> fiwn The 
!^:'\i:: text and search restJu then add yourovb-rt 
^ii:r'.::icnts and nOlcs. 

• COMPILH YOUR PERSONAL BlflLK- Ou\ 
line tcxls in color. Add Notes and cofnmoils. 
Cidtc your own supplcmcnury Study files. 

• CRKATI-: ni-liS." Then conv'cn them for use 
wiih wnrdproccAsors like PapcTcJip ami GEOS. 

• SUKI: SUPPlJiMHNTARY STLT)Y nLES— 
ind develop tmnsUiion v*3ri4iiiins. 

!!NEW LOW PRICE!! 
ONLY $129.95 

vl.2 for C64 or v2.0 for C12S/1571 



CALL OR WRITE TODAY FOR A 

FREE BROCHURE. WHICH SHOWS 

HOW VALUABLE LANDMARK CAN 

BE IN YOUR BIBLE STUDY 

P.A.V.Y. Software P.O. Box 1584 

Baltwin, MO 63022 (314) 527-4.S().S 
ASK mR rr at yol-r i j^cai. cx)Mi>un:K m-.Aj j*' 



P&seidon Electronics, 212-777-9515 
(see address list below). 

BBS FOR 128 

Drugonfire BBS 128 (SlOO) is de- 
signed to allow a novice to get a bulle- 
tin board up and running within 20 
minutes. It supports 300. 1200. and 
2400 baud modems, up to 100 public 
and 40 private message bases, full E- 
mail system, remote SYSOP capabili- 
ties, auto maintenance mode, security 
option, self-maintaining system files, 
and more. Versions for the 64 and 
Amiga are forthcoming, as are teiroin- 
al programs for the 64 and 128. 

YodaHead Software, 609-596-1772 
(see address list below). 

SWEEPSTAKES 

Computer Learning Month has 
launched a Schtxjl Certification Pro- 
gram and Sweepstakes, with a first 
prize of a computer and software and 
30 second prizes. To become eligible, 
teachers in grades K-12 must use three 
software programs they have not tried 



before between August I and October 
31. Further details are available from 
CLM, an official project of the Soft- 
ware Publishers Association. 

Computer learning Month (see ad- 
dress list below). 

PAINT PROGRAM 

The MasierpU'cc graphics package 
($29.95) lets the C-64 artist move, 
copy, scale, rotate, twist, and fold the 
onscreen artwork. Other features in- 
clude picture compression for saving 
memory, and the ability to load pic- 
tures from BASIC. 

Scorpion. 201-663-0202 (see address 
list beitTw). 

GOOD NEWTS 

P.A.V.Y. has lowered the price of 
Landmark. The Computer Reference 
Bible ftom $164,95 to S129.95. If you're 
reading these words before June I (as 
only subscribers are likely to be), you 
may still be able to get in on P.A.V.Y.'s 
limited time special price of SI19.95 
dmlinued on page 8J 



Activision/Ciamcstar 


j.^VrtUlcidli 


uiljirijij.yili::.'. 

Microleq Systems 


23.W Bayshorc Parkway 


Companies 


1430 9th Avenue South ^^' 


Mountain View, CA 94043 


Mentioned 
in 


Fargo. ND 58103 


Phone: 415-960-0410 


Phone: 701-232-4033 


Avalim Hill 


P.A.V.Y. .Software 


4517 Hartoril Road 


Scuffffebvtf 


P.O. Box 1584 


Baliimore, MD 21214 




Batiwin. MO 63022 


Phone: 301-254-9200 


Contact 


Phone; 3W-527-4505 


Compu.Serve 


manufacturers 


Foscidon Electronics 


5000 Arlington Centre 


directly for 


103 Waverly Place 


Blvcl./P.O. Box 20212 


additional 


Ncv^' York. NY 10011 


Columbus, OH 43220 


Phone; 212777-9515 


Phone: 614^57-8600 


information. 


Public Domain Solutions 


Computer learning ( 


ireat Game Products 


PO. Box 832 


Month 8 


804 Chaion Drive 


TalleN-asl, FL 342?0 


P.O. Box 60007 E 


Jeihesda, MD 20817 


Phone: 813-378-2394 


Palo Alio. CA 94306-6007 I 


•hone: 800-GAMES-4- 


u 

Scorpion 

19 Harbor Drive 


Computerfest 1 


ntraCorp, Inc. 


P.O. Bos 28 i 


4160 S.W. I39th Court 


Lake Hopaicong. NJ 


North Aurora. IL 60542 .> 


iliami. FL 33186 


07849 ^ 


Phone: 312-897-5788 F 


•hone: 305-252-9040 


Phone: 201-663-0202 1 


Cosmi t 


Cetek 


The Software Toolworks 


415 North Figueroa Strcei f 


»0. Box 203 


One Toolworks Plaza 


Wilmington. CA 90744 C 


)akdale. lA 52319 


13557 Ventura Bl\d. 


Phone: 714-240-8985 F 


'hone: 319-338-7123 


Sherman Oaks. CA 91423 
Phone; 818-907-6789 


Electronic Arts H 


licrolllusions 




1820 Gateway Drive ! 


7408 ChaLsworth Stree 


.SoundWarc 


.San Mateo. CA 94404 C 


Jranada Hills, CA 9134 


4 P.O. Box 1913 


Phone; 415-571-7171 F 


'hone; 8I8-.360-3715 


Nedcrland. TX 77627 


Free Spirit Software H 


i^icroProse 


YodaHead Software 


905 W. Hillgrove, Suite 6 1 


80 Lakefront Drive 


P.O. Box 177 


LaGrange, IL 60525 F 


lunt Valley, MD 21030 


Marlion, NJ 08053 


Phone: 312-352-7323 F 


'hone: 301-771-1151 


Phone: 609-596-1772 
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Ingenuity lies not in further complicating definitions 
and concepts, but in reducing the number of contra- 
dictions and terms to the fewest possible true sets. 
Any given system design must begin with the sum 
of its parts, and then define these parts. 

This is the essential theory behind "black box" system 
design, or modular programming. We begin by describing 
what we want the system to do, then breaking this idea down 
into the necessary steps to accomplish it. Whether you are 
pursuing a personal goal or creating a computer program, 
you will find that this approach is always the most effective. 

Last month we published a short text adventure called 
Lost Dutchman's Mine. In this installment we will examine 
this program in detail and demonstrate how a series of mod- 
ules (or subroutines) can be tied together into one cohesive 
system that is greater than the sum of its parts. None of 
the routines by themselves would constitute a game -but 
working in tandem, they create an interactive adventure. 

If we wanted to describe the player's purpose in Lost 
Dutchman's Mine in one sentence, we could say: 

To move around within a network of locations, collect 
various objects, return them to a specific location, and win 
the game." 

This is the simplest w^ to define the program's operation. 
In last month's column. I advised designing your adventure 
on three separate pieces of paper before touching the key- 
board. F^ge one of my scenario for Lost Dutchman's Mine 
read like this: 

The object of the game is to wander around within a 
series of caves, collecting up three treasures as you go. When 
you have all three objects, you return them to a specific 
base location, drop them, and win the game." 

On page two I listed the obstacles I wanted to hamper 
the player's efforts: 

"1. A timber wolf guards the entrance to a burial mound 
where one of the treasures is buried. The player must find 
the gun and bullets to kill the wolf 

■7. A secret word is required to pass from the base loca- 
tion to the caverns. (Kind of like PLUGH in Colossal Caves.) 
The secret word is written inside a matchbook cover. 



"3. A whistling spirit guards the entrance to the caverns. 
The player must blow on an empty 7-UP bottle to scare 
the spirit away. 

%. The burial mound is submeiged under water. The play- 
er must find and open a reservoir lock through which the 
mound room can be drained. 

"5. A shovel is needed to dig up the third treasure (Dutch- 
man's nugget). 

"6. The player must also light a torch, drop enough equip- 
ment to fit through a narrow crack, and escape from the 
room after he opens the reservoir lock." 

You may have noficed that a lot of these ideas are taken 
from other adventure games, many of them classic puzzles. 
1 wanted them to be femiliar enough that the game could 
be solved without too much trouble. I could just as easily 
have made the game much harder. 

On the third and final page, I drew a map detailing all 
nine locations in the game, complete with references to the 
objects that would be found there, and the various puzzles 
.specific to those spots. 

Using the modular approach, I broke the program down 
into seven discrete boxes. 

1. Initialize arrays and variables 

2. Read in data 

3. Get command 

4. Find verb in command 

5. Find noun in command (if any) 

6. GOSUB to appropriate subroutine pertaining to verb 

7. Data lines 

Modules 3, 4. and 5 could all be considered part of the 
parser, the routine that gels and analyzes player input. I 
define them separately here to make it clear what goes on 
inside the routine. 

The first thing I typed in, as always, were lines 1530- 
1610. These lines contain descriptions of the nine locations 
in the game. I immediately followed with comments to ac- 
company each, in lines 163O-I670. These comments are spe- 
cific observations in each location. Fbr example, the gas 
station has a "metal plaque above a glass shelf." 

Then, using the third page of my notes (the map) as a 
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guide. I typed in the data for an array of nine dimensions, 
each dimension having six elements. This dimension will 
be known as D(9,6). The six elements consist of the direc- 
tions North, South, East, West, Up, and Down. This is 
a numerical array, and the number in each element indi- 
cates the location to which that direction connects. Any non- 
zero number is a pathway; otherwise there is no exit in that 
direction. I did not type in directions for the gas station, 
because it is only accessible by use of the forementioned 
"magic word." 

In the ^hion of any sensible hacker, I jumped to lines 
120 through 210 and designed a data loader. Once 1 made 
sure that the arr^s were dimensioned properly in line 120, 
I read them in a couple of times in lines 190 and 210 just 
to make sure everything was going smorthly before I contin- 
ued. This type-n-run approach is the hacking method, and 
it works. Trust me. 

Now for the tough part. I had to figure out all the verbs 
and nouns that would be needed for the parser's vocabu- 
lary. In lines 1800-1850 I tried to give the program a rea- 
sonable dictionary of words to work with for player input. 
An advanced parser would recognize fer, fer more than this 
simple collection of words. 

Again, I skipped back to the beginning and made sure 
these strings loaded in correctly before going on. 

Lines 1870 through 1900 are detailed descriptions of the 
objects that can be carried in the pl^efs inventory. Althou^ 
an object might be referenced by the parser as "diamo," it 
will be described on the screen as a "glowing diamond." 
This gives character and atmosphere to the adventure. 

Line 1920 is a list of numbers that tells the program where 
to place objects initially. The first number indicates the lo- 
cation, the second is the object number itself in the inven- 
tory. The - 1, -1 at the end of the line signals the end 
of the data. 

Lines 1940-1970 are end of game messages, for when the 
player is killed or is victorious. If the plsyer is killed, these 
lines help tell him where he made his mistake. 

With this, 1 completed the data lines, the major stumb- 
ling block of any adventure game. Although I made many 
changes afterwards and altered these lines considerably be- 
fore finishing, these lines gave me something to work with, 
the meat of the text adventure. The remaining program por- 
tions manipulate the data loaded in from here in many w^, 
but it is in these lines that the game gets its substance. 

Important variables to be defined are CL (Current Loca- 
tion) and the arrays 0(9,8) and 1(8). The former is an array 
that tells what objects are in what rooms, and the latter is 
the player's inventory array. 1(8) refers directly to the eight 
objects listed in line 1840, the objects in the game which 
can be carried. Any non-zero number in element 1(1), for 
example, would indicate that the player is carrying the torch. 
However, a —1 would mean the torch is burning, while a 
1 would mean it is out. I also set up meaningful flag nam^ 
in line 150. These flags indicate the status of certain items. 

In lines 340-540, 1 fleshed out the parser routines. First 
the directions, then once the program is recognizing them 
correctly and responding, I introduce the other verbs. It 
is better to make sure that all the directions are function- 
ing correctly first before continuing, because a flaw that 
shows up later might take a lot of work to repair Make 
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certain that the directions in the game correspond identi- 
cally to your map. It is very common to make errors here. 
I often get East and West mixed up while typing them in. 

Line 340 gets the player's input. If he enters nothing, the 
program checks again. Line 3TO checks for a single charac- 
ter input (either a direction or the letter "i" for inventory) 
and acts accordingly. Since the six compass directions match 
up with the six single character commands perfectly, I just 
reduced any of these terms to a number between 1 and 6, 
subtracting 7 if necessary. I can then use this number to 
reference the corresponding element in direction array 
D(9,6). Once a match is found for the verb, the number 
is placed in the variable V. 

The verb is the important part. We use the verb to jump 
to the subroutine that designates the action, so we must have 
a verb. The noun, on the other hand, is not always neces- 
sary for many actions, and so our parser only looks for 
it . If it finds one, it places the number of the noun into 
the variable N before branching off to our routine. The %\xh- 
routine can then check this variable to see if the player is 
referencing the correct object. For example, if the player 
gives the command to dig, we check the variable N to de- 
termine whether or not he wants to dig in any particular 
spot, as in DIG MOUND. If N=0, we simply print a stan- 
dardized message that reads "YOU DIG FOR A WHILE 
BUT YOU DONT FIND ANYTHING" 

After the parser has both these variables, V and N, as- 
signed with values, it drops through to lines 570-580, the 
branches. These lines will steer the program flow into the 
correct verb actions that alter program variables and the 
game environment. 

These lines run from 700-1520, accomplishing every pos- 
sible action that the player is permitted to take in our ad- 
venture. If you study them carefully, the variables are self- 
explanatory and it should be readily apparent that they act 
on values to change location inventory, specific flags (mound 
full-empty, wolf dead-alive, etc.), and print messages for 
the player's benefit. 

After program flow returns from these subroutines, the 
main parser program executes a series of critical checks 
in lines 600-690. These flags count elapsed time in the cur- 
rent location and check on the player's status relative to cer- 
tain non-player characters and events. For example, if the 
player is in room 4 for more than four turns with the spirit. 
he is going to get it good. The same goes for being in a 
river full of water too long or beside a hungry wolf. 

The check for a win is in line 600. This line checks if 
a variable called WINGAME has been set yet by the drop 
subroutine. If the player drops all three treasures in loca- 
tion zero, this flag will be set upon returning from the rou- 
tine, telling the main program that the player has succeeded. 

With as little work as all this, an advenmre game was 
bom. We have a ftil I -fledged story, with a plot, characters, 
and suspense. Next month, well go over the specifics of 
the w^ the parser functions, and methods we could use 
to upgrade the routine so that it could recognize complete 
sentences. 

Until then, remember— stop wrestling with the program 
as a whole and break it down into modules. You cannot 
move mountains unless you do it one bucket of dirt at a 
time! D 




In the year 2009 A.D. it was discovered that a colony 
of extraterrestrials had established itself on the dark 
side of the moon. A Russian installation was attacked 
and totally obliterated in 2011 when it attempted to 
approach the alien base to make contact. Following that 
incident, a United Nations security resolution plac^ the 
aliens' location off limits to all international teams until 
further notice, for fear of antagonizing the otherworldly 
visitors. 

You are a government agent assigned to a secret mission 
of the highest priority: to recover one of the greatest of all 
historical artifects, the Apollo lunar buggy. If you can drive 
the vehicle over the treacherous lunar plain and past the 
alien forces, the buggy can be relumed to the Smithsonian 
Museum for posterity. It seems like an impossible gamble. 



but you know it will be worth it if you can recover this 
national treasure. 

Lunar Buggy is a jump-and-shoot game similar to Moon 
Buggy, an arcade fevorite. It requires a joystick in Port 2. 
Press the fire button to escape from the title screen. 

This game for the C-128 features a background that 
smooth scrolls past at two different speeds to give the illu- 
sion of depth. You've probably seen it before in many ar- 
cade games. Lunar mountains pass in front of one another 
as they move, with the smaller and slower moving terrain 
in the rear of the display. 

To jump, you push up on the joystick. Press the button 
and push either up or right to fire a laser torpedo. You can 
jump and fire at the same time if necessary. 

The alien ships are a mere nuisance at first, but they can 
become a real threat later on in the game as they begin to 
move erratically and with greater speed. Destroy them as 
quickly as possible, but don't let them distract you from 
jumping over the many craters in the lunar suri^ce. 

Each time you go 500 miles across the moon towards 
safety, youll pass an American outpost. These small bases 
provide short stops to rest and refiiel before moving on. 

The alien ships are worth the current base number X 100 
points each. 

If you manage to go 5000 miles in Lunar Buggy, you'll 
have escaped safely and returned the buggy to American 
soil, where it belongs. D 

SEE PROGRAM USTING ON PAGE 67 
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By now youve probaOly seen all the ads lor all llie 
ditferenl "Super Carlnflges" on ihe markel. And Ihey can 
talk all day. but lel's gel leai. no carliidge is going to Dack up 
100% of anymmg. no cartridge is going !o lurn your C-54 into 
an Amiga, and no fancy screens or hyp«rbalic claims are 
going ia give a cartridge any more power than n really has 

TIafs why SUPER SNAPSHOT is slill Ihe ties! mutti- 
tunclipn cartridge on Itie market it is 3 product ttiat is the 
result ol a long process oi refinement Our policy o( constant 
upgrading ensures yoj Itial you'll always own a state of tne 
art device. SUPER SNAPSHOT will never De ■■finalized' — 
because it's built to evolve 




/?/£)< niK TH£ TjUK.. 



W£ UMl/C THE WALK 



HERE S WHAT SUPf R SNAPSHOT V3 CAN DO FOB VOU! 
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• Copies 99% of all memory resident software 

• Disable feature lor true transparency 

• Extremely compatible Turtw Dos fast loader— 1541/71/81 

• Rom based scrolling M/L monitor will NOT corrupt memory 

• Turbo 25— Formats for up to 25 limes taster loads 

• Fast data copier, single Or dual 1541/71 and 1581/81. 

• Sector editor allows fast examination and modification 

• Free KRACKER JAX parameters for ttiose tougfi cracks 

• Ten-day money back satisfaction guarantee 

• Attention C-128 owners. An optional swiicn is available whicD 
Only S5 00 additional 



• Flies run without the cartridge m ptace. 

• Pre-programmed or user definabte function i<eys. 

• Oos wedge supports multiple drives- 8. 9. 10. 11. 

• High Res and multicolor screen dumps lo printer or disk Me 

• Fast File copier, smgie or dual 1541/71/81 

• Sprite killer and exclusive extended life fealure 

• Fast load and save routines are used throughout. 

• Super Snapshot VI and V2 owners rriay upgrade lor S20 00 Call us 

• Our great Slideshow Creator available lor only SI 4 95 
allows you to disable the C'64 mode without removing the cartridge 



So while olher companies spend their lime making their packages better, we'll |ust keep on malting our products better 
Because we know Ihe difference between TALKING THE TALK— AND WALKING THE WALK SUPER SNAPSHOT V3 ONLV J59.95! 
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INTERNATIONAL 



dnOEDINS M simgle we khv' inomY orOers . certified chKks, imisoiuI chtcks on pnot 
appiovai. VISA. MC Discover and COD fieau add $3 DO shiDomg md luMling ptr 
order S2 00 adCctioiial lor COD orders Orders outside of Norrn America please add S r 50 
per cadndge tor shipping befeclivB items will be replaced at no cttarge in-stock orders 
are processed wnhin 24 lirs. Returns are noi accepted witlMui authoriiatnn I 
Washington Hesidenls please add 7 3% sales lax 



lUail youi ordr lo Soitwaie Suppoil Inl -Oil 
jroo NE Anoiesen Road .' Vantouuer WA 9866t 



e> lineal T 100 JS« 1173, 
iimti. Monday Fiidny. Aher hoi 
cceplad at i?0«l 655-964! 7 dnyi a week 
Technical support .iv.iiLible C.-ill 12061 S9S 9S4I. 
9aiti-Spm Pacific lima. Monday- Friday. 



i^s 



In Canada order from: Marshvlaw Soltwara, PO Box 1212, Sackvllla NB EOA.SCO only $69. 9S CDN. 

DEALERS — WE HAVE THE SUPPORT YOU'RE LOOKING FOR! 
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For the C-64 

By Cleveland M. Blakemore 
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IT'S NOT JUST KID STUFF! 




While we do have a wide selection of 
children's educational and entertain- 
ment software, we also have a rapidly 
growing list of personal, business and 
programming software for not only 
the Commodore, the Amiga, and the 
Atari, but also for the Apple II GS 
and the IBM. So don't pass us by just 
because you think we're only for kids. 
We're for you, too! 



We're having a special sale, with up to 
80% off selected software. Call now 
for a complete list. 



C.ill toll Uw oulsule Texji 1 HOO 433 3^38 
rniiilf Texas call 817 292 7396 

WEDGWOOD RENTAL 

5316 Woodway Dnvi' 

Fort Wofth, Texas 76133 
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CRVPTO-SECRET-CRVPTO 
(BURN THIS MESSAGE AFTER IT HAS BEEN READ> 

TO ■■ RED LEADER TEAM 

AT= FORTRESS 

REGARDING^ GREEN FORCES PENDING 

AGGRESS I UE ACTION. 
FROM ^ RED TEAM COMMANDER 

WARNING! WE HAUE RECEIUED ADUANCE 
SCOUT REPORTS OF UERIFIhBLE ENEMY 
ACTIUITY IN YOUR AREA . IJE CURRENTLY 
ESTIMATE THAT ANYWHERE BETWEEN 5 AND 
15 BATTALIONS OF ENEMY TROOPS ARE 
EMPLhCING OPERATIONS IN THE RUINS OF 
CIUILIAN BUILDINGS OPPOSITE THE WALL 
OF THE RED TEAM FORTRESS . WE ARE ONLY 
A E L E T P R U I D E Y U W I T H F U R E X E S F 
AMMUNITION AT THIS TIME? AS WE HAUE TO 
CONSERUE OUR OWN SUPPLY. YOU ARE TO 
HOLD THE FORTRESS AT ALL COSTS . THIS 
IS A DIRECT ORDER . THERE CAN BE HO 
WITHDRAWAL UNDER HOSTILE FIRE . WE 
EXPECT THAT THE GREEN TEAM WILL BEGIN 
THEIR ASSAULT ON YOUR CURRENT LOCA- 
TION AT DAYBREAK TOMORROW MORNING. 
EXPECT ENEMY INCOMING BY OSOO . IT 
WILL PROBABLY GET PRETTY HAIRY DOWN 
THERE . 
GOOD SHOOTING ... AND GOOD LUCK I 

END OF MESSAGE 

eVe never published a really gung ho mil- 
itary game in Ahoy!, so I figured it was 
time to do one. In this short and sweet 
BASIC-ML hybrid program, you fight off 
a communist horde who are launching a massive assault 
on your location. As they appear in the windows of the 
bombed out ruins on the other side of the stone wall of your 
fortress, you attempt to shoot them before they can get a 
bead on the wail with their LA% (Light Antitank ^^feapons). 
If you are too slow, they fire a rocket which blows aw^ 
a portion of the wall. The resulting damage is registered 
on the red bar ai the bottom of the screen. When this bar 
vanishes, the fortress has been overrun. 

The game uses a joystick in Port 2. The white cross rep- 
resents your aiming point. Center this on a soldier as he 
appears in the window and press the button. If you hold 
the trigger down, the gun will fire continuously. This is 
very unwise, however, because you only have four boxes 
of ammo to begin with, and when they are used up, you're 
at the mercy of the GREEN aggressors. 

The game has four different attack waves, with complete 
havoc breaking loose on the fourth one. Soldiers will be 
popping up in every window and firing everything they've 
got left to try to destroy the fortress. If you manage to sur- 
vive this last attack, the RED army will be victorious over 
the GREEN forces. Otherwise, you'll end up reading propa- 
ganda and growing potatoes. 

The soldiers are worth 150 points apiece, multiplied by 
the number of the wave. Any score over 70,000 is good. 

It's very difficult to repel the GREEN forces. They're 
mean. They're hateftil. They cross the street against the light. 
They've got tons of overdue library books. Just last week, 
they killed Rambo by inserting bullets into his body manually 

Good luck! nSEE PROGRAM LISTING ON PAGE 70 

ne»d*r Scrvlca No. ISS -» 
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fiRIANZ)OUGHERTY 

Software Designer/ CEO 
Berkeley Softworks 



y| nd Q-Link. the dynamic telecommunications service for 
Al Commodore* owners, does just thatl 

IL .As the developer of GEOS. the graphics environment operating 
system for Commodore 64s and 128s, I know how good Q-Link is. 
Personally and professionally. Here at my company, we recommend 
Q-Link to all our customers. We use it ourselves, too, for online 
customer service ... so you can get help when you need it. We've 
also found it's a very efficient way to provide upgrades and patches 
and to announce new GEOS-compatibie products. 

With just your Commodore, a modem and Q-Link software, a new 
world of personal computing options opens up: thousands of 
programs you can download and keep; advanced graphics (thanks 
to GEOS); an exclusive help line to experts at Commodore; 
online educational courses taught by real teachers; fun; games; 
friendship, you-nanie-it. Q-Link lets you realize the full potential of 
Commodore computing— right at your fingertips. 

Do I use Q-Link? .Absolutely! .And what's really impressive is that 
when you join Q-Link, you get a modem and Q-Link Software free! To 
my mind that's a tough offer to turn down. But don't take my word 
for it. Find out for vourself. Call . . . 



1-800-782-2278 



£111530 



Call today to get your free modem and software. 



8619 Westwood Ceirter Orive 
•\ieijna,yA 221*1 




Tbe Ahoy! An Gallery aSm the opfot- 
tunity for &ine and fortune to aspiring 
Conimodore artists. Send your work on 
^akta Ahoy! Art GaUery, loo Intenotioaal 
Inc., 45 ^^fest 34th Street-Suite 500^ New 
York. NY 10001. Indicate tibe drawing 
package or file format of the images. 
Grs^hics produced on the Amiga are eli- 
gible for inclusion in Ahoy!'s AmigaUser; 
C-64, C-128, and Plus/4 images are digible 
for inclusion in Ahoy! If your image is pub- 
lished, you will receive a free one-year sub- 
scription. Current subscribers will have 
their subscription extended by one year. 

Note that the i^ Gczii^ is not a contest. 
Published pictures are selected in an arfoi- 
naiy and cqxidous feshion by the /l/uy.' An 
Director, based sokfy on their artistic merit 
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Irony «f IroaiM^oiily two AMMrlcMt wn ■ W ong 
Hm cofftfOwten to tMi moitA'i 4tli of July odftion 
of At 4rf (MKifr. (AMwvgh, OS tiM oM iokt 900s, 
ffcty hmo ■ 4tli of Jirfy bi ethor cowrtrioi— flMy 
Ivtt don't coMbroto Iwlopowl M co Day.) At loft oro 

IWv TrvVTIIIVIIfl VT FTVnVMIn W|r ^imilOfMH MM 

pmk-by MIdMol MHuttii (Borwyn, IL). AWvt it 
AtarcMv 8md by Hofax DMmt (Wmon, B€), 
po— d l B g eat "Start «id StrlDOt Forovor" |ttit at 
twoly at OMOi OMOt attb yooa ^pn pM (or tooM- 

■■■a mKB nmw/m HI npn tl ■■ OnHfOfMaiO HaapHI 

by Aborto ¥BtO€CM (MBanO/ Holy), Aooviif by 
■MM HaM (BoffaN/ NT)f 000 n$t Ofnct by Kobort 
ML Bb (bSalo, Qvoboc). loo. If t a CoMdtao pott 
efflco. Bat wboro wo«M oor Motgbbeii oortb of tfao 
bordor bo wHboot tbo Anoikao Rovebrtloa? Still 
lia inrf i m fort, no doabt, and trodhig tbom to at for 
tbroo-comofod bntt and p oordorod wtgt. Horo't 
wfabbia ol our raodan ■ lofa oad ■■lomUa bnBAre 
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PLASMATRON 

Avontage 
Commodore 64 
Disk; $14.95 

Plasmatmn is a perfect example of 
what can only be called "generic en- 
tertainment software." These generally 
well -executed but hackneyed game pro- 
grams are produced in Europe and sold 
in the U.S. by mainstream publishers. 
Often the American publisher uses a 
"discount" label name. In this instance, 
the Avantage banner signifies Acco- 
lade's lower-priced software. 

European programmers grind out 
these rehashes of arcade "standards" 
like sausage. Games which should be 
the result of a creative process are in- 
stead formulaic and predictable. 

On the other hand, as with all gen- 
eric product, the user knows what he's 
getting and he gets it at a good price. 
The entertainment is based on play me- 
chanics that are already proven suc- 
cesses, and the lower price gives gam- 
ers a chance to acquire playware at bar- 
gain rates. 

Plasmatron is just such a piece. Or- 
iginally produced by The Zen Room 
and brought to these shores by Avan- 
tage, it's a horizontally scrolling science 
fiction shootout set against a variety of 
scix)lling backgrounds. The user pilots 
a Plasmatron fighter, a futuristic com- 
bat aircraft, over the planet Loughton 
2, encountering fierce resistance from 
hostile forces. (Unfortunately, the 
skimpy instructions never specify whe- 
ther these "aliens" arc native to this 
world.) The objective is to blow up as 
many ships and other targets as possi- 



Plasma- 
tron's only 
somewhat 
original as- 
pect is its 
visuai pre- 
sentation. 
The lower 
part of the 
landscape is 
"tilted" to 
help manu- 
facture a 
3-D look. 
READER 
SERVICE 
NO. 151 



ble, then make it back to base before 
the limited shields are exhausted. 

The enemy ships in the initial attack 
wave are sitting ducks, but before long 
the opposition stiffens. Then the player 
is up against giant insects, floating as- 
teroids, and multicomponent fighter 
ships which take up to- five hits to elim- 
inate completely. 

The only remotely original aspect of 
PlasmaiTvn is its visual presentation. 
At first look, it seems to be the familiar 
side perspective seen in earlier games 
like Defender (Williams) and Super 
Cobra (Stem). The designers, however, 
actually "tilted" the lower part of the 
landscape and added the Plasmatron 
fighter's shadow to help manufacture 
a 3-D look. This is a purely cosmetic 
innovation that has no impact on the 
game whatsoever. But when it comes 
to generic software, one takes one's in- 
novation where one finds it. 

Plasmatron offers simulated three- 
dimensional graphics, but the inspira- 
tion for this pseudo-3D seems to be the 
old View-Master slide viewer system. 
When you looked into a View-Master, 
the world indeed had dimension, but 
only as a series of spaced backdrops. 
These backdrops were fiat, like two-di- 
mensional stage scenery. That's how 
Plasmatron looks. There's a horizon 
line about a third up the display area 
with backdrops slotted in sequence to 
create the illusion of depth. 

The playfield also includes a console 
which displays the status of the ship's 
shields, damage, ETA, and lives re- 
maining. It's difficult to speculate about 
the purpose of a damage reading on a 
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PlomMtrwi ...20 

Woodon Ships & Ira* Mm ......20 

Spood Buggy 23 

SInMi MittiM 23 



ship which is destroyed as soon as its 
shields run out, especially since the in- 
structions never even mention that there 
is a console! Damage is accumulated, 
however, even while shields remain in- 
tact, but the game plays at such a high 
speed it isn't possible to determine how 
it is being accrued. Current score and 
high score displays flank the console. 

Plasmatron has some rvice graphics 
and an original look, but there's noth- 
ing else here that hasn't been seen hun- 
dreds of times already. 

Avantage/Accolade Software, 20863 
Stevens Creek Blvd., #E, Cupertino, 
CA 95014 (phone: 408^146-5757). 

-BiU Kunkel 
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For the hard corps computer wargamer. 
READER SERVICE NO. 152 



WOODEN SHIPS & IRON MEN 

The Avalon Hill Game Co. 
Commodore 64 
Disk; $35.00 

Transferring a military simulation 
from the tabletop to the computer 
screen is always a chancy undertaking. 
Avalon HUl, which has a board game 
catalogue full of non-electronic clas- 
sics, has tried numerous times with 
varying results. 
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istic, and totnplete 

statistical baseball simulation ftir wro. out' or 

iwo plavfpi. ("lamr play, manager's runctions, 

!(rapliks. and a compkni- staiislical library 

eslalilisli I'liri'-Suit liiiscball'*' as tlie ultimaic 

>.|piiris sinmlaiion program. 



$3995 




Opilona 



<.amc I'lay 

Hiirc-Stat Baseball's underlyinR statistical framework simulates ilie realities 
nf liaseball like ne\er before Within this framework ihe program amsiders 
eaih player's batting statistics against both LEFT- and RtCHT-baiided pitchers. 
where available, and pitchers slats vs both LEFT and RIGHT-handed hat 
ters l-ver^ player's fielding and base-running abilities are also considered 
|(an important factor when atiemptmg to steal a base, etc) 

Select the team you'd like 10 manage, then pick the team yt>u want to pliy 

against. Every team from the W8S sexson is accurately repre.senied. along 
tttih eight classic teams from the past IJctermine your starting tmeup. 
designate a startutg pitcher, and make player substitutions when necessary 
lou call Ihe plays, offense and defense. In a one-plaver game, your com- 
puter opponent displays un-canny intelligence in reading to your managing 

lIlCISIlHlS. 

Manager's FunctioiLs 

Built-in manager's functions provide extra versatility The Trading function 
gives vou the opportunity to create the "what if teamisl you've always 
dreamed about With this funiiion you can have Dwight (ifMxlcn playing 
uith Micki-\ .Mantel and Babe Ruth Or. if you like, you can form your own 
draft leagues from existing teams and play against your friends for your own 
pennant and World Scries. 

The Stat-Kcepcr function compiles all of the players' .statistics for you and 
calculates Batting .\verages and pitchers' ERAs. You t^n track your own teams' 
jH'rformances and pnni the sea.son statistics for your club or league. 

Stadium Di^k 

.\n optional Stadium Disk is also available that lets you play In any nf the 
twenty-six Major League stadiums. 



ur Own 

ks Available. 

le tor C-64/128. Apple. 
. . ^^^^^^^_- IBM-PC 

PureSut Baseball^ oHHnH^MI^e statistical record of each team 
player's performance. Vou can print all of your players' u-ar-to-date perfor- 
mance statistics at anytime throughout the season. .\ll player stats and game 
Box Scores can be displayed on the screen or sent to an external printer 
for a hardcopy printout. The PRI.NT TF..\V! ST.^T>i funcilon can be used at 
the end of the season to determine your M<>st \aluable Player, or to review 
your club's performance. 

Pure Stat Baseball™ also includes a unique .^uto■Play option that lets the 
computer play a complete game In less than three minutes K whole series 
of games can be played unattended, and an entire seastm of player and team 
statistics can be compiled over several days with all game stat.s printed out 
for your records- 
Discover for yourself just how enjoyable a baseball simulation game can be 
Pure-Stat Baseball.™ the first real baseball game on a computer 

See vour local dealer, or call: 



Software 
Simulations 



959 Main 



203/377-4339 
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Wboden Ships has few computer frUk. 

When S. Craig Taylor, Jr. unveiled 
the original edition of "Wooden Ships 
& Iron Men" under the Battleline 
Games imprint, strategy gamers hailed 
it as the greatest simulation of naval 
combat during the age of sail. Time has 
scarcely dinuned its reputation, so the 
release of the home computer disk 
ranks as one of the year's most impor- 
tant electronic gaming events. 

Programmer Jim Jacob has executed 
a fairly literal translation of the board 
game. As a result, the Commodore ed- 
ition of Wooden Ships & Iron Men 
makes virtually no use of the unique 
advantages of the computer. The sound 
is minimal, the graphics vaguely ape 
the counters and map of the board 
game, and gameplay is quite similar to 
Tkylor's original creation. 

If Jacob has transmitted the limita- 
tions of the board game to the compu- 
ter version undiluted, the same can also 
be said of the simulation's strengths. 
The computerized \^)oden Ships & 
Iron Men feamres the same wealth of 
detail, historical accuracy, and lively 
gamepl^ as its cardboard inspiration. 

The main displ^ of this one- or Xwo- 
pl^er contest is divided into two sec- 
tions. The upper portion is a scrolling 
map with a movement grid. Each ship 
occupies two adjacent hexagons. Al- 
though the drawings are not especial- 
ly detailed, players should have no 
trouble distinguishing friend from foe. 

The lower portion of the screen pre- 
sents option menus, ship status reports, 
and results of combat. The computer- 
ist employs the joystick to choose or- 
ders from menus and confirms them 
with a press of the action button. The 
program automatically puts a joystick- 
controlled cursor on the map when the 
player needs it for specific movement 
and firing conunands. 

Like most Avalon Hill creations, 
Wboden Ships & Iron Men subdivides 



turns into phases for ease of play. The 
sequence for a complete turn consists 
of the following phases: wind changes, 
unfoul tangled ships, movement, drop 
or raise anchors, grapple with neart^ 
ships, boarding preparation, combat, 
melee combat and crew transfer, reload 
guns, and change sails. 

Although this list of procedures hints, 
correctly, that this is one complicated 
game, it's really not so daunting taken 
step by step. A mammoth 56-page 
manual contains exhaustive tutorials on 



both the routine of play and the con- 
struction of customized scenarios. 

The ability to create additional bat- 
des is a great feature, especially for the 
naval historians among us, but the pre- 
pared scenarios are of paramount im- 
portance to most gamer?, Wboden Siups 
& Iron Men really shines with 25 en- 
gagements drawn firom the period from 
the American Revolution to the War of 
1812. 

The variety is incredible. The bat- 
tles range from ship versus ship slug- 
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While Stealth Mission boasts remarkably accurate cockpit displays, its em- 
phasis is on flight and combat elements. READER SERVICE NO. 153 
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Speed 
Buggy of- 
fers five 
tortuous 
courses, all 
utilizing big 
rocks, 
wooden fen- 
ces, and 
brick walls 
in various 
combina- 
tions as ob- 
stacles. 
READER 
SERVICE 
NO. 154 
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fests like Constitution against Insuigenl 
to huge multiship actions like the Bat- 
tle of the Nile and Trafalgar. Most of 
the battles involve vessels from the US, 
France, and Britain, but there is some 
use of lesser powers like Spain and 
Venice when history so dictates. 

For all its outstanding qualities, 
Viboden Ships & Iron Men appeals 
most strongly to hard corps computer 
wargamers. It minutely duplicates the 
board game, but does not add many of 
the trimmings non-wargamers have 
grown to expect from their software. 
Those who want an uncompromisingly 
authentic recreation of this colorful pe- 
riod in naval combat could well find 
a new favorite program once they set 
sail with Waoden Ships & Iron Men. 

The Avalon Hill Game Co., 4517 
Harford Rd., Baltimore. MD 21214 
(phone: 301-254-9200). -Amie Katz 

SPEED BUGGY 
Data East 
Commodore 64 
Disk; $29.95 

To paraphrase an old saying, '^od 
must love driving games. Otherwise he 
would not have made so many of them." 
It sometimes seems as though there's 
a new one every month, each only mi- 
croscopically different firom those 
which preceded it. 

Speed Buggy, the latest tide in this 
genre to reach market, breaks out of 
this automotive rut. It provides a to- 
tally original gaming experience that 
could never be confused with the sports 
car and race car simulations. 

The gamer employs the joystick to 
control a four-wheel off-road vehicle. 
It turns on a dime, accelerates rapidly 
and, best of all, can skim along on two 
wheels if the player drives over one of 
the rocks which the designer has 
planted so helpfully in the middle of 
the road. After hours behind the wheel 
of electronic Indy cars and Corvettes, 
it's quite a shock to see the buggy 
launch into the air and sail over road 
obstacles. 

The control scheme is simplicity it- 
self. Moving the stick to the left or 
right governs lateral motion, slamming 
it forward puts the pedal to the metal, 
and pulling it back applies the brakes. 
The action button shifts between high 
and low gears. A rudimentary control 



panel in the upper right quarter of the 
screen presents all pertinent data, in- 
cluding the speed, lap number, current 
gear, and elapsed time. 

The disk provides five tortuously 
twisted courses. The easiest is called 
"Off road." possibly because it has 
more hazards than the other four, 
which are labeled "North," "South."" 
"East" and "West." Each has extensive 
scenery themed to its name. For ex- 
ample, "South" is a symphony of palm 
trees, sandy beaches, and pastel col- 
ors. All five utilize big rocks, wooden 
fences, and brick walls as the major ob- 
stacles, but the combinations var>' 
greatly from course to course. 

Speed Buggy is a race against time. 
The vehicle must pass the finish line 
before the countdown clock reaches 
zero. If the buggy navigates the entire 
course fest enough, the playtr earns the 
right to try another lap. The hazards 
are positioned differently for each lap. 
so there is pleasing variety even for the 
most skillful drivers. 

The scoring system might dampen 
the spirits of a few novice drivers. 
Completing that first lap causes a tre- 
mendous increase in total score for 
most players. It is common to leap 
from a total in the 7000-8000 range to 
30,000 in a single race just by beating 
the first time cutoff. So. until the com- 
puterist leaps that hurdle, be prepared 
for point totals to stay fairly static from 
round to round. 

Like many other Data East produc- 
tions. Speed Buggy bears the telltale 
traces of insufficient attention to detail. 
The program itself is f\in and highly 
playable, but all the little things which 
enhance the gaming experience are ei- 
ther wrong or missing. 

The implementation of the vanity 
board is a perfect example. Because 
Speed Buggy was obviously pro- 
grammed for use with a tape drive, the 
disk does not retain high scores once 
the computer shuts down. There is no 
reason why this could not have been 
corrected before American republica- 
tion. The same goes for the ludicrous 
title screen. It calls the game, presum- 
ably in an English transliteration of the 
original Japanese, "Buggy Goy." Insert 
snickers and ethnic jokes here. 

Fortunately, none of these trivial 
flaws directly impacts the gameplay of 
Speed Buggy. It is tons of fun and a 




Included among Stealth Mission's eight 
scenarios are a mountain conflict, a 
battle at sea, and a bomber marathon. 

terrific addition to the Commodore 64*s 
library of driving games. 

Data East. 470 Needles Dr., San 

Jose, CA 95U2 (phone: 408-286-7074). 

—Amie Katz 



STEALTH MISSION 
SublOGIC 
Commodore 64 
Disk; $49.95 

Stealth Mission is a new flight sim- 
ulator from SubLOGIC. Roll it around 
in your mouth and say it again: "^ new 
flight simulator from SubLOGIC." 
Sounds great, doesn't it? 

SubLOGIC, in the person of Bruce 
Artwick. virtually invented flight sim- 
ulation for microcomputers earlier in 
the decade. The original Flight Simu- 
lator (for the IBM PC) and the subse- 
quent Flight Simulator II (other home 
systems) set the standards that dozens 
of other publishers spent years strug- 
gling to surpass. Secondary software, 
meanwhile, in the form of /^S Scenery 
Disks, lets users take off and land their 
small aircraft anywhere from Chicago 
to Tokyo, and all points in between. 

A few years later, SubLOGIC again 
blew the whole scene apart with Jet. 
This advanced simulator allows users 
to climb into the cockpit of several 
modem combat fighter jets and engage 
in mach-speed dogfights, aerobatics 
(stunt flying), and land on the deck of 
Continued on page 51 
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12"Moimhroiiie 
Monitor 




• High Resolution 
•80 Column 

• 1000 Lines At Center 

• Great For Business 

• Fantastic Value 

Our Low Sale Price 



*79 



95 



List $329 



(Add $10.00 shipping.*) 



13" Color Composite 
Monitor 




• Anti-Glare Screen 

• Audio Speaker 

• Volume Control 

• Block Matrix Tube 

• Horizontal Resolution 260 Lines 
■ Includes Composite Cable 

Our Low Sale Price 

$1 AA95 



169 

(Add $14.50 shipping.*) 



tist$329 



l3"R6l/Conipofite 
Color Monitor 




A 



• Block Dot Screen 

• 3 Monitors In One - 
Composite/RGB/80 Column 

• Green Screen Only Switch 

• Resolution 560 x 240 Pixels 

Our Low Sale Price 

95 



^219 



List $399 



(Add $14.50 shipping.*} 



720 CPS 15" Printer 

Multi-Head Wide Carriage Printer 
With High Dot Resolution 




5V4" Floppy Disks 

Double Sided M ^^ ^ 

Double Density V ^V 

Minimum Quantity 50 " ^ •«€■ 

Moximum Quantity 250 (Add M.OO shipping.*) 

Box of SO »9.S0 (ir each) 

(without sleeves) 

BOK of 50 $10.50 <21< each) 

(with sleeves) 

Box of 100 (no limit) . . . $24.00 (34* each) 
(with sleeves & iabets) 



THE VOICE 



Speech Synthesizer 
for the Commodore 64 



• 720 CPS -150 CPS NLQ 

• 8K Print Buffer 

• Print Speed of 228 LPM In Droft 

• 6 Print Heods Achieve High Dot 
Resolution In Higher Speed 

• NLQ Speed Of 47.4 LPM 

• 136 Colurrin Wide Carriage 

• IBM orKi Epson Mode 

• Porollel Centronics Port 

Our Low Sale Price 

$79995 

^^ ^^ ^^ List $1995 

(Add $14,50 shipping.*) 



EconoiTiY Sleeves .... $1 .00 per quantity of 50 

Disk Lobels $3.95 per quontity of 100 

Disk Notchers $3.95 ooch 



5V4" Sony Disks 




-OSK g««= 




Umtt0tl 
Quant let 

(Add KOO shipping.*) 



Single-Sided, Double Density 

Sold In Packages Of 5 With Sleeves, 

Labels & Write Protects Included 

$2.45 Per Box 



Features 

* Infinite vocabulary 

* Built-in software — notfiirvg exiro lo buy 

• Two voices each with intonation: adds 
character 

• Simple BASIC commands (or easy 
programmability 

* Doesn't steal RAM from the BASIC workspoce 

• Won't stop screen oction 

• Clear, easy to understand speech 

* Easy installation — just plugs in 

* Keyvoicing — keys speak as they are pressed 

• Direct text to speech capobility 

Our Low Sale Price 

95 



$29 



List $49 



(Add $3.00 shipping.') 



15 Day Home Trial * 90 Day Immediate Replacement Policy 



COfVIPUTER DIRECT 

22292 N. Pepper Rd, Barrington, IL. 60010 
Call (312) 3U-S0SO To OrdsrI 



- Lilinob roidcnu >dd 6vj% uJa lax. All Dtdot muM be In U.S. DoUvi. Wc li^jp lo lOl pcinu in Uw U.S.. CANADA, PUERTO RJCO, ft APO-FPO. 
PLcAKciJI fof ciuu-fnoutiKleconiineTiuii US- orCO-.Q. MAILOKDERS cnctotecuhwr chcclt. mcMiey order , or pcTKmal check AUw M dayi ckil«cry. 2 
\0 'i day* fof phone ofdcr« and I day cxprcn miul. ^liOa., ipccificalioru 4; ■vailabiSlly iubj«c1 '.o chaji^c without nolicr. Shippioi uid hkodUm dunct tK 
not ryundabk. {Momiori only ihl[i<p«c) in contiocnul U,S-> COMPI/TFJl IHRCCT ^11 maich ujr vai^ naiionally advcrtiied ddlvend prkr on ihc csuct 
UJ1K prodiKI wiifi a comparabtB payment method (cxcludin| any appUccMc tilk« !«;(»>- A phyiiaU copy Ofd«i -_— — — 

orihecurrcnl valid Lowet prked ad fnuil beiuppliod with iheordn. or Mrithtn 13 dayi c»f date of purchase. VISA — MA^I IKCAHD — C0*0« 

Reader Service No. 166 



C^INARUTER DIRECT 

Is 1st In PRICE, SUPPORT, A OUAR AMTEl! 

V*fE LOVE OUR CUSTOINAERSI I Price* E«pir« z-arii^ 



Complete Commodore 
C64c System Sale 

Computer, Disk Drive, Monitor, Printer & Software 



No One Sells This 
System For Less! 





Sale 



(Add $35.00 shipping.*) 



^395 



List $1049 



The Complete System for *395*^ includes: 



• Commodore 64c Computer 

• Excelerator Plus Disk Drive 

• 12" Monochrome Monitor With Connecting Cable 

• Genuine IBM® Printer With Commodore Interface 

And 1 Roll Of Heat Transfer Paper 

• GEQS Program: Word Processor And Drawing Program 



15 Doy Home Trial * 90 Pqy lirimodlato Roplocomefit Pol icy 

™^ (312)382-5050 ^ S?^^m"p™J?1.«P 

Call We Lave Our Customers! Mall Borrington, IL. 60010 



RBader Sarvica Mo. 1S6 



C^AARUTER DIRECT 



AiMD WE INAEAN ITl 



1 Prices Expire 7-31-88 



II 



* IS MHi IBM® Turbo 
XT Cofflpatible System 




The Complete System Includes: 

• S12K Professionol Turbo XT Computer 

• MS DOS 3.2 8 GW Bosic 

• 12" Hi -Res 35 MHi Monochrome Monitor 

• Genuine IBM ". Printer With Interloce & 
1 Roll Of Heol Transfer Paper 

• Word Processor. Spreadsheet 8 Data Bose 

• Complete DOS & System Tutor included FREE ! 

Our Low Sale Price 

95 



$699 

{Add $35 00 shipping.*} 



LislSi«5 



MS MHz IBM® XT 
Compatible Computer 




••15 MHi (Norton CI RoHng) ^^^^" 

• MS DOS 3.2 4 GW Bosic : m^- 

• Porollel, Seriol S Gome Ports " — 

• TTL Monochrome Monitor Card 

• 512K Professional XT Turbo Computer 

• Super Fost V20 CPU • "AT Style" Keyboord 

• Security Keylocli & Clock Calendar 

Our Low Sale Price 



$ 



599 

(Add $10.00 shipping.*) 



95 



List $n 95 



l2MHi286IBM®AT 
Computer 



Inc 



(•quirat 
MS DOS tew Sole 

179.95 With Computet. 
Not SojdSaporolcly. 




• 80286 16 Bit Microprocessor 

• 1 .2 MEG Floppy Disk Drive 

• Parallel S Serial Printer Ports 

• 101 Key AT Style" Keyboord 

• BIOS w/Builtln Support For 3'/j" Drives 

• Clock/Colendar & Security Keylock 

• or 1 Watt Stole 



$ A A A95 With Floppy/Hard Drive ControJIer 
9mW Cord i SI2K RAM Uenwy Installed 



Our Low Sale Price 



$ 



599 

(Add $14.50 shipping.-) 



95 



List $2295 



O 

$ 



Complete Commodore 
C USD System 



Complete Apple® 
Compotible System 



Ultra Hi-Speed Printer 

300 CPS Draft *5aCPSNlQ 
With Color Printing Capabilities 






The Complete System Includes; 

• C'I2S0 Computer With Built-in Disk Drive 

• 12 Monochrome Monitor 

• Genuine IBM ." Printer With Interface 

• One Roll 01 Heot Tronsfer Poper 

• C- 1280 Progrommer s Reference Guide 

Our Low Sole Price 

$ e il A95 



Tlie Complete System includes: 

• Laser 1 28 Apple Compatible Computer 

• Genuine IBM ?, Printer With Loser 128 
Interfoce S 1 Roll Of Heot Tronsfer Paper 

• 12 ' Hi-Resolution Monochrome Monitor 

• Ouoiify Word Processor. Spreadsheet 
And Data Base 

Our Low Sale Price 



'300 CPS Draft so CPS NLQ 

> Front Panel Margin Settir)g 

> Download Choracter Setting 

> Variety of Ct>aracters & Graphics 

> Porollel & Seriol Interfoce Ports 

> Auto Paper Lood & Ejection 
•IBM and Epson Mode 
>Botton Feeds 10 K Suffer 

• OpttoiMil T-Colof PrinlInQ Kit . . 



$al* tW.tS 



Our Low Sale Price 



549 

(Add $30.00 shipping.') 



List $825 



«479 



[Add $27,50 shipping.-) 



95 



List $1409 



$ 



279 



(Add $10.00 shipping.*) 



95 



c 
i 



List $499 



15 Day Home Trial * 90 Day Immediate Replacement Policy 



COMPUTER DIRECT 

22292 N. Pepper Rd. Barrington. IL. 60010 
Call (312) 3t2-S0SO To Order! 



- lllmon r«id*nt* *4(1 ft -ft Wlw lAk Ml utJ*!v muM b* in l.i S J>o!lwv Uc ihip Ihi nil iHJiiin m ihc X) S , ^,ANADA. PUtkTO H IfO. & AWVFrt) 
Picaaccdl lot (.-harici ouliiJr conDncnisI U S or (. CI D MaU. OltPI'JtS frK\iy** taahitt check, montf onitt,ot pet lonaJ ch«:h Allow 14 dmyr deliver*. 2 
lo 7diyf tot phone orders ukI I d«y eKprtu ituit. Pticn, ipnificaLioni, A ■vaiiabiiil^ tubjorl lorhsnic wilKoul iwlicr ShipfTini end handtin* i:hiU'tei vt 
iHtl rcfundmbJie (Momlot* onlii ihipfi^d in coniirwniRl U-S J fOMPl'TI'^R DIRI'XT *tll match lUiy vilid niHOfudllr idvef^jHO (le)iv«-«J prv^ on ihc fi*lt 
iAtnt ptodiici vrjih « v'omtMKiblc parmcnl m>clhad icftciudini any s{>pliuablr uLa ■uinl' A ptiyiivjJ eop^ Of der 
oi ih« «urKni valid louf r fiFKcd mJ muti h«- tupplicd wMh the order, or wilhm 1 1 Uav» o( iUit at purii^hMe Vtf A — MAftTUC AMI — C<O.^D. 

Rtftdtr Service No. loe 



COAARUTER DIRECT 

Is 1st In PRICE, SUPPORT, & OUA RANTEBI 

I Prices Expir* 7-31-68 I 



WE LOVE OUR 



C64c Cofflpvler 

Includes GEOS (Word Processor S 
Versatile Drawing Program) 




JSale? 



Our Low Sale Price 



Ma9 

(Add S10.00 (hipping.*) 



95 



List $249 




WAMIGA 




Amigo SOO Computer Sale 

Call For 
Price 



SISKComputttr 

Gxnpolible with Amiga 

tOOO SoHvrare 

List $799 



Amiga 1010 Exterrral Drive Sale 

3'/>"Compact-Slz* Coll FOr 

Micro-Ditk Drive __ , 

utt$299 Price 

Amiga 1004 Color Monitor Sale 

13 "RGB 80 Column x2S Coil For 

Price 



Row, 640 X 400 Pixel 
List $399 



C USD Computer 

Includes Full 128 Detached Keyboard SI571 Drive 

With 128K Of User Memory Expandable To 640K. 

SOperollon AAodes (C:64, C128 8 CP/M, Ver. 3.0) 

40/80 Column Output, 16 colors 

Frae Progfwnmer't Reference GuMe 




Our Low Sale Price 

95 



$499 



List $249 



(Add $10.00 shipping.') 



Excelerofwr 
Disk Drive 



Commodore Compatible 
'Includes FREE Game 




800K 3!^" 
Disk Drive 

Commodore 1581 Works With 

C64/C64C, and C128/C128D. Over 

BOOK Bytes of Formatted Storage On 

Double-Sided 3.5" Microdlskettes. 




300/1200 BPS 

■xtci'nul M0O6HI 

• 1 200 Baud Bel 1 21 2A ot 1 300 or 300 Bits/Sec 

• Fully Hoyes Compatible 

• Automatic Dialing t Answering 

• Auto Redial At Receipt Of Busy Signol 

• Built-in Speaker With Volume Control 

• Built-in H«lp Commands 

• Both Touch Tone ond Pulse Dieting 

• Uses RS-232 Interfoce 

(RS-232 Interfoce Coble Required 

Sale 

(Add $3.00 thipping. 



Price $y ^95 

thipping.') ^ ^^ U«l$t39 



Our Low Sale Price 

95 



M49 



Our Low Sale Price 

$ « V A95 



list $349 



(Add $10.00 shipping.*) 



179 



(Add $10.00 shipping.') 



300/1200/1400 BPS 

■xrenml MocteM 

• Fully Hoyes Compatible 

• Both Tone & Pulse Dtoling 

• Built-in Speaker With Volurtw Control 

• Commond Buffer Thot Holds Up To 40 CSarocters 
* 2400 Baud Bell 31 2A At 300, I3OOS24O0BPS 

• Uses RS-332C Interfoce 
(t!S-332C interlace Cable Required) 



List $249 



Sale Price ^ 

(Add $3.00 ihipping.') 



159 



95 

Utt$24f 



^^y 15 Pay Home Trial * ^O Pay Irwrtiodiqte Replocoment Pol icy 

(312)382-5050 B 




Call 



We Z^ove Our Customers! 



Mall 



COMPUTER DIRECT 

22292 N. Pepper Road 
Barrington, IL. 60010 



Rmdir Samlet No. IK 



COAARUTER DIRECTT 

mrill No* Be UNDERSOLSi 

A.IMD WE fVIEAI4 ITI* 



ll 



Prlc«»Expir« 7-31-88 



Super Hi-Speed 200 CPS Printer 

Star Micronics LV-2010 10" Printer With Near Letter Quality 




Sale $ I 0095 

(Add $10.00 shipping.') H Mm Mm List $499 



No One Sells This Printer For Less! 



• High Speed 200 CPS Draft 

• Near Letter Quality 

• Tractor and Friction Feed 

• Automatic Sheet Feed Loading 

• Both Parallel & Serial Interface Ports 

• Continuous Underline 

• IBM Compatible 

• Ultra High-Res Bit Image Graphics 



Printing Speed 

200 Characters Per Second Draft 
45 characters Per Second NLQ 



Print Method 

Serial Impact Dot Matrix 



Print Buffer 

16K Bytes 



Port 

Both Centronics Parallel 8. Serial Ports 






15'' Higli Speed 1 60 CPS Printer 

Splendid Mixture Of High Speed And Near Letter Quality 




Sale$^409^ 

(Add $14.50 shipping.*} ^^" ^^B Mm List $499 



No One Sells This Printer For Less! 



• NLQ and High Draft Speed 

• Continuous Underline 

• Skip Over Perforation 

• IBM Compatible 

• Friction and Tractor Feeds 

• Both Parallel & Serial Interface Ports 

• High Res Graphics Printing 



Printing Speed 

160 Characters Per Second Droft 



Print Method 

Serial Impact Dot Matrix 



Paper Feed 

Sprocket or Friction Feed 



Port 

Both Centronics Porallel & RS-232 Serial Ports 



15 Pay Hotne Trial * 90 Dqy Imniecllcifct Replacement Policy 



COA/IPUTER DIRECT 

22292 N. P«pper Rd, Barrington, II. 60010 

Call (312) 3I3-SO50 To Order! 



• Fllmoii f«idtnii fedd fi-^j^ utlcs t«. AU mdcn muil be m OS 0oll*r», We ihjp to all point! in the U.S., CANADA, PUERTO RICX), Jk APO-FPO. 
Plcma< ctfJ for charpf ouuidc contiiwnuJ U.S. or C. O. D. MAIL ORDI-JtS cncloac cashier ch«ck, money of4«T, or TwrvoniJ C^Mvk . Alkw |4 timyt dtHivrry^ i 
iO 1 days rof ph<mc ordcn and I Am.f c«Ti^«o miOl , Prica, ipcctricatiCHU A AVuUbiliiy >ubf«cl lo chftnCe Mrilhout notioc. Shipping wid hsndliiv chArsn u« 
iKH refundable. iMonHori only ihipfMd in ccwiriftenULl U.St COMPinTER OIKE<CT will niittch «ny valid nMM»ully MlvenJMd driEverwI prtc* on the enn 
umc produci wilK a campviltik payment meihod <eiciudin| any applicable saJcs iaxe>>. A physmJ copy (M^d« 
of !hc ctirreni valid lowei t^ced ad miuE be luppllAi with thv order, or within t S dan of dau ai duxcIuuc. VISA — MASTtKCABD — C*0+D> 

Reader Service No. 166 



{ C^A/tPUTER DIRECT 

■ I Is 1st In PRICE, SUPPORT, & GUARANTEi! 

^ WE LOVE OUR CUSTOMIERSI I "^tt'Pf-r-^iM] 



Genuine IBM® SV2" Printer 

8V2" Letter Size • 80 Column • Limited Quantities 



Sale 



(Add $7.50 shipping.*) 



$44 



95 



List $199 



No One Sells This Printer For Less! 




SAVE 



• Unbelievable Low Price 

• Advanced Dot Matrix - Heat Transfer 

• Upper & Lower Case (With True Lower Descenders) 

• Underline • Enlarged • Graphics 

• Ready to Hook Up To Serial Port Of IBM® PCjr 

• Low Cost Adapters For IBM®, Apple, Commodore & Laser Computers 



Hi-Speed NLQ 1 80 Printer 

Superb Near Letter Quality • Lifetime Warranty"^ 



Sale $ 



(Add $10.00 shipping.*) 



179 



95 



List $499 



No One Sells This Printer For Less! 



• High Speed Dot Matrix 

• Near Letter Quality Selectable From Front Panel 

• Italics - Elite - Condensed - Pica 

• Super Graphics - BK Buffer 

• Tractor/Friction Feed 

• Centronics Parallel Port 

• * Lifetime Warranty On Print Head 

• 6 Month Replacement Policy For Printer 





Call 



15 Pay Home Trial * 90 Poy linmedlato Roplacqmefit Pol icy 

(3121 382-5050 ^ 



^Ve Love Our Customers! 



Mail 



COMPUTER DIRECT 

22292 N. Pepper RcMad 
Barrington, IL. 6CX)10 



ReBJef Seivk!* No. 186 
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" >ARI-SCAN 



130 REM VA 



U 



•M \( 



For the C-64 and C-128 

150 DIM iCL.W in Ai 

^^, ^„ By Buck Childress 

I6r ,;_,IVi ' 



FULL!=1: li 




ell people, Fm about to hand down a secret 
recipe for the best RAM chip souffle this 
side of Pluto. Just add a head fuU of frus- 
tration, a dash of space bar, and a couple 
of cursor keys to taste. Mix well, then jump up and down 
on or Reliable litl your anxiety is overtaken by grief. Heck, 
you've just hurled your trusty companion up to that Great 
Microchip in the Sky. 

Of course I'm just kidding...! think. At any rate, we alt 
get overwhelmed by frustration from time to time. After 
all, some of us are only human. Well, I suppose an ex- 
planation is in order. 

Variables (or should that be frustration-ables?) have got 
to be one of the biggest contributors to premature hair loss, 
fried brain cells, and unintelligible babbling amongst com- 
puter programmers. Have you ever been in the process of 
writing a program, added a new (or so you thought) vari- 
able to the list, and then watched in total disbelief as your 
masterpiece took a nose dive? Shucks, if you'd only known 
that not-so-original variable was in there, you probably 
wouldn't be dangling from the ceiling right now. Why don't 
we get you off that ceiling (how are you going to explain 
the ftxHprints to the landlord?) and lower the old blood pres- 
sure a bit. Maybe with a little bit of practice youll be able 
to talk apin. As for me, my brain cell just multiplied. With 
some luck both of them might do it again. Then I'll have 
four. 

There have been programs written that will give a list 
of variables currently in the program. They work well, but 
you have to trace through the list to see if the variable you 
want to use is there. That's ok^ so long as the program 
isn't too long and you're not in any kind of hurry. But, when 
you get on a roll and your creativity' and fingers are flying 
like a Concorde jet, those programs just won't do. So... 
ihri-Scan to the rescue. When you want to find out if a 
variable is in use, just type it, press RETURN, and bingo. 
Youll know in less time than it takes to yawn. 

Uiri-Scan automatically searches out any variable you 

choose, whedier string, numeric, integer, or array. It's easy 

to use, and gets the job done pronto. It works equally well 

on both the C-64 and C-128. 

After saving a copy of Vari-Scan, run it. The loader 

30 AHOY! 



POKEs the machine language data into memory and checks 
for errors. When it's done you can activate Ihri'Scan by 
typing SYS 52000 for the C-64, or SYS 4864 for the C-128, 
and then pressing RETURN. 

Whenever you want to see if your program contains a 
certain variable, just type the variable name and press RE- 
TURN. If your chosen victim is in the program, Hiri-Scan 
returns the line numbers that have it. They can't run and 
they can't hide. You've got "em now. 

If the variable you're searching for is an array, you have 
a couple of options. You an scan for an exact match by en- 
tering the entire name such as A(l). A(l) would have to be 
in the program for a match to occur. But, if you want to 
know if the variable A is used in any arrays (e.g., A(J), 
A(l,5), A(2,X,7) ), enter the variable name like this; 

A(E 

The LIRA (£) sign tells Itri-Scan to list all occurrences 
of A as used in arrays. 

Uiri-Scan can discern the difference between all variables. 
For example, let's say that you want to search for the vari- 
able AI. kiri-Scart will only scan for the numeric variable 
Al. It will not report any integer, string, or array variables 
of the same name, nor will it inadvertently report a vari- 
able containing an A, such as AB. The same holds true 
for other types of variables. Hiri-Scan won't scan for any- 
thing in quotation marks, or on a line following a REM 
or DATA statement. 

Wri-Scan checks for extended variable names. If you've 
used HOMES in a home budget program, ytri-Scan recog- 
nizes it as HOS (the same as the 64 and 128 does) . So you 
don't have to worry about some weird variable sliding by 
your prying eyes. 

Vari-Scan can be deactivated by pressing the BACK AR- 
ROW ( -^ ) key. SYS 52000, or 4864, to reactivate it. 

The next lime you need an instant variable check, give 
Vari-Scan a try. It's easy to use, gets the job done fest, and 
keeps variable frustration al a minimum. Besides, who wants 
to do a tap dance on the keyboard? Then you couldn't use 
it as a frisbee. D 

SEE PROGRAM LISTINGS ON PAGE 64 



TEVEX Computer Software 1'800'456-1162 \ 



SSI 



\ I ACCOLADE I I ELEC.ARTS j [EDUCATIONALj^ 



B-24 

Battlecruiser 
Eternal Dagger 
Gettysburg 
Kampfgruppe 
Panzer Strike 
Phanlasie III 
President Elect 
Ouestronll 
Realms Darkness 
Roadwar 2000 
Roadwar Europa 
Shard of Spring 
Shiloh 

Sons of Liberty 
Wargame Constr. 
War South Pacific 
Wizard's Crown 




Apollo 18 
Card Sharks 
4lh & Inches 
Hardball 
Plasmatron 
Power at Sea 
Spy vs Spy I & 
Test Drive 
The Train 



MlCROPROSE~^ 



Airborne Rartger 
F-15 

Gunship 
Pirates 

Silent Service 
Stealth Fighter 



Lilt S Out } 

|35 $24 
$24 

35 $24 

40 $28 

35 $24 

$40 $28 



EPYX 



1 



California Games 
Champ. Wrestling 
Destroyer 
Movie Monster 
Spy vs Spy III 
Street Sports 
Sub Battle 

World Games 
EPYX JOYSTICK 



LislS OurS 

$40 S28 

$40 528 

|40 $28 

$20 $15 

$25 $18 

140 S28 

40 S28 

40 $28 

40 $28 

22 $15 



SSG 



Battlefront 
Battles Civil War 
Battles Normandy 
Carriers at War 
Europe Ablaze 
l-lalls Montezuma 
Reach - Stars 
Russia 
Run S Magazine #8 



Li«l S Our S 

$40 $28 

$40 S28 

$40 $28 

$50 $34 

$50 $34 

$40 $23 

$45 $31 

$40 $28 
$4 



li 



Lists 

$30 
$30 

$30 

$15 
$30 
S15 
$30 
$30 



Our$ 

$21 
$21 
$21 
$21 
$12 
$21 
$12 
521 
$21 



ACTIVISION 



Aliens 

Champ Basketball 

Champ Football 

Labyrinth 

Last Ninja 

Maniac Mansion 



Lisit 

$35 

$35 
$35 

$35 

$35 



INFOCOM 



Beyond Zorl( 
Border Zone 
Lurking Horror 
Nord & Bert 
Sherlock 
SiationfatI 



128k 



Lolt 
$45 
$35 
$35 
$35 
$35 
$35 



AMIGA 



Alien Fires 
Balance of Power 
Breach 

Breach Scenario 
Defender - Crown 
Ffrrarl Formula 1 
Fire Power 
Hunt-ped October 

imptgruppe 
'no of Chicaao_ 



i 



'elurn to Atlantis 
oadwar 2000 
War Eurooa 



Silent Service 
Sinbad 
Slarfieet I 
Terrorpods 
Test Drive 
Weaver Baseball 
Winter Games 



1 



Our* 

524 
$24 
$24 
$21 
$24 
$24 



Adv Constr. Sel 
Age of Adv 
Amnesia 
Arcticfox 
Bard's Tale I or II 
Chess 2000 
Chuck Yeager 
Dragon's Lair 

EOS 

Legacy - Ancients 
Lords - Conquest 
Marble Madness 
Pegasus 
Skate or Qle 
seven Cities 

Strike Fleet 



1 



OuiS 
$31 
$24 
$24 
$24 
$24 
$24 



L«tS 

S15 

$15 
$40 
S33 
S40 
$40 
$35 
|Z5 
$30 
$30 
$15 
$30 
$30 
$30 
$15 
$30 
$30 



ORIGIN SYS. 



Aulo Duel 
Moebius 
Ogre 
Umma 1 
Ultima III 
Ultima IV 



LsiS 

$50 
$40 
$30 
$40 

$S0 
$50 



ETC. 



Alt Reality ■ City 
AR - Dungeon 

Blue Powder 

Borodino 

Chopiifter-Magic 

Dark Horn 

Defender - Crown 

Echelon 

Full Count BbatI 

Gauntlet 

Guderian 

High Seas 

Might & Magic 

ML Baseball 

ML Wrestling 

NBA 

Starfleet I 

Stealth Mission 

Up Periscope 

Wizardry I 

WC Leader Board 

Wooden Ships 

Wrath - OenelhGnor 



Ou< J 
$12 
$12 
$28 
523 
S28 
$28 
$24 
$18 
$21 
$21 
$12 
$21 
$21 
$21 
$12 
$21 
$21 



) 



Carmen - U.S. 
Carmen - World 
Early Games 
Easy as ABC 
Pacemaker 
Fraction Factory 
Kindercomp 
Math Blaster 
Pieca of Caltg Math 
Reader Rabbit 
Rocky's Boots 
Speed Reader II 
Spell II 

SB Spellgrabber 
Sllckybear ABC 
SB Math II 
SB Numbers 
SB Opposites 
SB Reading 
Word Attack 



OutI 
$34 
S28 
$21 
$28 
534 
541 



1 



Us!$ Ourt 

t40 $28 

35 524 

$35 524 

$40 528 

$21 $15 

$30 S21 

$21 515 

$50 $34 

$35 $24 

$40 528 

$35 $24 

$50 $34 

$50 $34 

$30 $21 

$30 521 

$30 521 

$30 S21 

$30 521 

$30 521 

$50 534 



PRODUCTIVITY | 



Certificate Maker 

CEOS • 64 

GEOS-128 

Geos Desk Pack I 

GeoCatc 

GeoDex 

GeoFile 

GeoProgrammer 

CeoPuelish 

GeoSpell 

GeoWrlte Wkshop 

Newsroom 

Oiilrageous Pages 

Paper Clip 111 

Print Shop 

Print Shop Comp. 

Toy Shop 



Ljsi % Qui $ 

$40 $28 

$60 541 

$70 547 

$35 524 

$50 534 

$40 528 

$50 $34 

$70 $47 

$70 $47 

130 521 

50 S34 

50 S34 

50 534 

50 534 

$45 531 

$35 524 

$30 S21 



ACCESSORIES j 

Sony DSDD S.2S S9 

Tevex DSDDwrlfcrarycasa 58 

Sony DSDD 3.5 520 

3-M bSDD 3.5 S22 

Cleaning Kit 5.25 56 

Cleaning Kit 3.5 56 

EPYX SOO Joystick SIS 

Mouse Pad $6 

Sale Strip 6 Surg«Pro(«cio' 522 

Storage Case 60 5.25 59 

Storage Case 40 3.5 S9 

Universal Printer Stand S22 




Same Day 
Shipping 

Just call before 3:30 and 
well Ship your order iosi^ 
by UPS. Your package is 
only days away with Tevex. 



CALL TOLL-FREE 1-800-456-1162 

FREE CATAtOG WITH YOUR FIRST ORDER 
Open 9-8 Mon. • Fri. 10-5 Sat. 
Retail Store open same hours. 

Geofgii Rsidcnis c«U 404-934-5059. When ordering by mill smd money order. Include phone number. 

SI-QPPING: Add S3. 00 for shipping ami handUng diirge. Gcoi^u icitdenu idd4%»lestait. Shipping for 

Cintdiin orden is 5% of order, wish t J4.00 minimum . U. S. MiLl. APO & I-TO ordera add 5% of order, 

widi ■ $4.00 minimiun. Shipping fur iSl other foreign orders is 15% of oitler, with t SIO.OO miniinum. Alt Hilcs are Imai 

New Titles are underlined 



f \ 

2 for 1 SALE! 

Buy 2 get 1 FREE 

for selected 

Electronic Arts 

software. 
Call for details. 

TEVEX 

4205 First Ave, Suite 100 

Tucker (Atlanta), GA 30084 

404-934-5059 
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Thermal 
CannEction 

Real -World Interface: lemperature Sensing 



The computer can do much more than merely exe- 
cute programs. When connected to the proper 
devices, the computer can measure various char- 
acteristics of the real world (the world outside 
of the computer's circuitry), and it can control some of those 
characteristics. In previous articles we have connected the 
computer to photo-cells, light-emitting diodes, potentiome- 
ters, and relays. This month we will use a temperature-sens- 
ing device, a thermistor, to turn the computer into a mod- 
erately accurate digital thermometer. 

Both the C-64 and the C-128 have built-in analog-to-dig- 
ital converters. These are called "A to D" or simply "A/D" 
converters. The function of an A/D converter is to receive 
an analog input signal and to convert it to a digital value. 
Specifically, the A/D converters in the Commodore com- 
puters give an integer value from to 255, which is pro- 
portional to the amount of resistance applied to their inputs. 

A TO D niNDAMIMTALS 

If you apply a short circuit between the 5 volt supply 
voltage and the A/D's input, the A/D sees a resistance of 
zero ohms and converts this to a digital value of 0. If you 
leave the input to the A/D converter unconnected or open, 
the A/D sees essentially an infinite resistance between its 
input and the 5 volt supply. Then the A/D converter gives 
the largest value it can, namely 255. 

The A/D converters in the Commodore computers give 
an output value of 1 for approximately every 10,000 ohms 
of input resistance. That is, 50,000 ohms corresponds to 
an A/D output of roughly 50. This is feirly accurate for 
resistance below 100.000 ohms and output values of less 
than 100. 

Because of different A/D input circuitry, the C-64 reaches 
its maximum value of 255 with an input resistance of roughly 
500,000 ohms, whereas the C-128 gives a maximum output 
of 255 with an input of about 250,000 ohms. Note that these 
are only 'niles of thumb." Any serious application requiring 



actual resistance values must calibrate the A/D converters. 
If you need only relative values ("is the paddle turned more 
to the left or more to the right?", for example), calibration 
may not be necessary. 

Just to eliminate any confusion, I should mention that 
A/D converters generally convert analog input voltages (not 
resistance) into digital quantities. (Refer to Analog to Digital 
Adventures, October 1986 Ahoy!, for further discussion of 
A to D conversion.) Since voltage and resistance are rela- 
ted, it is appropriate and more useful to talk about input 
resistance in this application. 

CONVIRtlON tOFTWAIII 

The A/D converters are accessed through Control Ports 
1 and 2 (the joystick ports) on the right side of the compu- 
ter. Each port can handle two resistance inputs. Normally 
game paddles are plugged into the A/D pins of these ports. 
There are only two A/D converters in the Commodore com- 
puter, but there is an electronic switch which can select the 
inputs from either Port 1 or Port 2. That way two A/D con- 
verters take care of four analog inputs. 

BASIC 7.0 in the C-128 uses the POT command to read 
the A/D converters. POT(l) and P0T(2) give values corre- 
sponding to Control Port 1 inputs (closest to the front of 
the computer). POr(3) and P0T(4) correspond to Control 
Port 2, 

For the C-64, you must read the A/D converters by other 
means. On page 346 of the €-64 Programmer's Reference 
Guide (PRG) is a machine language program for reading 
all four A/D Coddle") inputs. It states that reading the pad- 
dles from BASIC is not reliable. The machine language pro- 
gram C-64 Paddle Routine on page 66 of this magazine 
is a condensed version of the PRO program which allows 
inputs only in Control Port 1. 

The procedure to perform an A/D conversion and to read 
the results is as follows: 

1. Set the electronic switch at address $DC02 (addresses 
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are in hexadecimal) to enable Port I or Port 2 (or both) 
inputs to the A/D converters. 

2. Wait briefly for the inputs to be converted. 

3. Read the outputs of the two A/D converters at $D4I9 
and $D41A. 

The remarks at the beginning of the machine language 
program provide more details. Note that interrupts must 
be disabled. The Complex Interface Adapter (CIA) chip 
has pins which can be inputs or outputs. Two of its pins 
(PA7 and PA6) are tied to the electronic switch. The Data 
Direction Register (DDR) of the CIA at address $DCOO 
must be programmed so that those two pins are outputs. 
Then Ts are written to those two pins to close the switches 
and bring the Control Port paddle signals to the A/D con- 
verters. 

This machine language program enables the inputs from 
both Part 1 and Port 2, alUiough only Pon 1 will be used. 
The A/D converters are part of the Sound Interface De- 
vice (SID) chip. They continuously convert whatever in- 
put is available. If nothing is plugged into either control 
port, the A/D converters see infinite resistance and give 
values of 255. 

Although the PRG sa^'s BASIC is not reliable, I have found 
that these statements work nearly as well as the machine 
language routine: 

PRINT PEEK( 54297) 



PRINT PEEKC 54298) 



for each) to pin 9 and pin 7 of the 9-pin connector. Pin 
9 is the POT X (paddle) input, and pin 7 is 5 volts. For 
convenience, you may twist the wires together. 

Thermistors come in a variety of sizes and shapes. The 
one listed above is a^mali bead about the size of a pencil 
tip. Thermistors have two wire leads attached to them. The 
two leads of the thermistor are soldered to the other ends 
of the wire. It doesn't matter which wire goes to which lead 
of the thermistor. The schematic of the finished apparatus 
is in Figure 1. 

Before using the thermistor with the piiogram we will dis- 
cuss, you must make its leads waterpixxif. Daub some epaxy, 
silicone glue, or other waterproof glue around the leads of 
the thermistor and the ends of the wire to which they are 
soldered. Don't coat the body of the thermistor itself any 
more than necessary to seal the leads. (Be sure the leads 
are not touching each other.) 

PLUG IT IN 

After constructing the thermistor apparatus, plug it into 
Control Port I (the joystick port on the right side of the 
computer, the one closer to the front of the computer). 

Remember that computer chips connected to pins on the 
Control Port connectors are static-sensitive. Chips in the 
computer can be damaged by electrostatic discharge. Dis- 
charge yourself by touching something metal before con- 
necting or disconnecting anything (joysticks included) at 
these connectors. Don't use your computer in a very dry, 
static-prone environment without proper precautions. 



CONNECTOR 
(viewed from solder side) 



Figure 1 
Thermistor Attached to Control Port Connector 
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They read the SID chip's A/D i^stere at $D419 and $D41A. 
The first address is for the A/D converter for input resis- 
tance between pin 7 (5 volts) and pin 9 (POT X) of the 
control port connector. The second address is the A/D con- 
verter which measures resistance between pin 7 (5 volts) 
and pin 5 (POT Y). Here "POT* stands for "potentiome- 
ter," which is a variable resistor. 

HARDWJtRI PRIPARATION 

You need less than S5 worth of parts to convert your com- 
puter into a digital thermometer: 

1. Subminiature D 9-pin female connector (Radio Shack 
276-1538 or equivalent). 

2. Thermistor (Radio Shack 271-UO or any other with at 
least 10,000 ohms at 25 degrees C). 

3. Wire: any length, 20 to 24 gauge. 

4. Epoxy or waterproof glue. 

Solder two equal lengths of wire (1 used about four feet 
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TUm on the computer and enter this quick program: 

CM VERSION: 

10 PRINT PEEK(54297), : GCFTO 10 
or 

C-128 VERSION: 

10 PRINT POT(l), : GOTO 10 

You should see a series of very close numbers, typically 
about 15 for the thermistor listed above at room tempera- 
ture (70 degrees Fahrenheit). Those numbers are the digi- 
tal outputs from the A/D converter as it measures the re- 
sistance of the thermistor. 

If you get very erratic numbers, or all zeros, or all 255's, 
then something is wrong. All zeros means that either the 



wires or thermistor leads are shorted together (touching). 
Look closely at both ends of the wires and check the con- 
nector for solder bridges. 

All 255's means that either the wires are not well-sol- 
dered to the connector or to the thermistor, or the connec- 
tor is not plugged into the computer connector firmly, or 
the thermistor is open-circuited (faulty), or the connector 
is plugged into the wrong control port. 

If you see very random numbers, make sure you are 
plugged into Port 1. TUm your computer off, then back on, 
and reenter the program (make sure some other programs 
in the computer are not interfering with the thermistor— 
this would be a problem with only the C-64 version). 

THE THlRMIftTOR 

If all went well, the number repeatedly displayed is a digi- 
tal representation of the thermistor's resistance. Squeeze the 
thermistor in your hand. You should see the value on the 
screen change. It should decrease since the resistance of 
a thermistor decreases as the temperature rises. Notice that 
the value on the ^reen gradually changes to the new \alue. 
It takes a while for the thermistor to change temperamre. 

The advantages of the thermistor for our application are 
that it is a resistive device (unlike a thermocouple which 
is a voltage device), it is inexpensive (unlike a platinum 
Resistive Temperature Device or RTD), and it has a rela- 
tively laige thermal sensitivity (its resistance changes by 
a fector of ten or more for a one hundred degree tempera- 
ture change). 

The disadvantage of a thermistor is that it is very non- 
linear. This means that its resistance does not change uni- 



formly with temperature. In feet, the relation between re- 
sistance and temperature for a thermistor is given by this 
equation: 

1/T2 = 1/TO + l/B * LN(R2/R0) 

If the thermistor's resistance RO is known at a certain tem- 
perature TO, and if a calibration constant B is known for 
the thermistor, then any other temperature T2 m^ be calcu- 
lated from the above formula by measuring R2, the ther- 
mistor's resistance at that temperature. Note that LN is the 
natural logarithm function given by LOG in BASIC. Also 
note that temperatures must be given in degrees Kelvin. 
More on that later 

As we have seen, our computer has the ability to mea- 
sure the thermistor's resistance. We will also let the com- 
puter perform the calculations in the formula to tell us the 
new tempei^ture. 

CALIBRATION CAN BE PUN 

We must measure the thermistor's resistance at two dif- 
ferent knonm temperatures in order to calculate B, the 
calibration constant. The procedure we will use is this: 

1. Measure resistance Rl at room temperature Tl. 

2. Measure resistance RO at ice water temperature TO. 

3. Calculate B, derived from the previous equation, since 
Tl and TO arc known: 

B - LN(R1/R0) / (im - 1/TO) 

You could use any two temperatures, but these are easy to 
obtain. 
Once the computer determines the calibration constant 
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B, the thermistor can be used to measure any other unknown 
temperatures. The computer will detennine any new temper- 
ature T2 with this procedure: 

1. Measure resistance R2 at the new temperature. 

2. Calculate the new temperature T2: 

T2 = 1 / [ (yXO) + (l/B) * LN(R2/RD) ] 

Notice that since this fomnuJa depends upon the ratio of 
the two resistances, it doesn't matter what units they are 
measured in as long as they are the same. We will use ar- 
bitrary Commodore A/D converter units for measuring re- 
sistance. Temperatures must be in degrees Kelvin, 

PUT IT ALL TQOETHER 

If all the preceding has seemed too compUcated, fear ncrt. 
The program Thermal Connection on page 66 takes care 
of all the difficulties. Before you run this program you must 

1) find out what your room temperature is (use a ther- 
mometer or look at your thermostat) and 

2) put some cold water along with some ice cubes or 
crushed ice into a dish and set it where your thermistor 
plugged into the computer can reach it. 

Plug the thermistor into Control Port 1 and run the pro- 
gram. Note that C-64 users must change lines 100, 1020, 
and 2030 as shown in lines 5001-5003. Also, C-64 users 
must add line 11 (shown in line 5000) and add lines 5010- 
49184. These changes for the C-64 replace the POr(l) func- 
tion of the C-128. 

The program asks if you already know the calibration 
constants for the thermistor. If you reply "N" to indicate 
that you don't know them, the program starts the calibra- 
tion process beginning at line 3(J70. You must have the ther- 
mistor at room temperature (or any other known tempera- 
ture except the freezing point of water). Enter that temper- 
ature in degrees Fahrenheit, (The computer will convert 
it to degrees Kelvin in line 3180.) 

The program calls the routine at line 1010. You will see 
a disp% on the screen similar to the earlier test of the ther- 
mistor. Once the numbers appear to have settled to one or 
two values, press any k^. The program calls the routine 
at line 2010 to read and average the next ten resistance read- 
ings. This value is Rl, which corresponds to your room 
temperature Tl. 

Now you are instructed to put the thermistor into the ice 
water. The computer assumes its temperature TO is 32 de- 
grees F. Press any key to see the new A/D values on the 
screen. You should see them gradually increase until they 
reach some steady level. Again press any key once the num- 
bers appear to have settled to one or two values. The com- 
puter averages the next ten readings and calls the result RO, 
corresponding to TO. 

The computer has all the information lo calculate the cal- 
ibration constant B in line 3200. The values of B, TO, and 
RO are then shown on the screen. You should write them 
down. That way. the next time you run the program you 
can enter them manually rather than going through the cal- 
ibration process again. (My values with the listed thermis- 
tor are typically B=2884, T0=273, and R0=29, Room tem- 
perature Tl of 293 degrees K (68 degrees F) gives an A/D 
reading Rl of 15.) 

Press any key once you hsNt recorded the calibration con- 
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stants. You are returned to the main loop at line 100 which 
repeatedly reads the thermistor's resistance R and converts 
it to a temperature T in degrees Kelvin in line 110. 

There are four user-defined functions beginning at line 
20. FNR takes any number and properly rounds it off to 
one decimal place. FNK2F ("K to F") takes a temperature 
in degrees Kelvin and converts it to degrees Fahrenheit. 
FNF2K converts d^iees fthrenheit to decrees Kelvin. FNT 
is the basic thermistor formula which converts resistance 
into temperature in degrees Kelvin. 

Line 120 converts the calculated temperature to degrees 
Fahrenheit, rounds it off, and displays it. Line 130 con- 
verts degrees Kelvin to degress Celsius (TC = TK — 273), 
rounds it off, and displays it as well. The Kelvin tempera- 
ture scale is sometimes called the "Absolute" temperature 
scale since degrees Kelvin is absolute zero— the lowest 
possible temperature. 



PN YOUR OWN 

Even though the temperature is displayed to the nearest 
tenth of a degree, the thermistor and the A/D converter in 
the computer do not really provide that resolution or ac- 
curacy. You will notice that at higher temperatures such as 
130 degrees F (holding the thermistor near a light bulb), 
the readings jump by as much as 20 degr^s at a time. This 
is because a difference of one in the A/D reading corre- 
sponds lo 20 degrees in this temperature range. The reso- 
lution is even worse at higher temperatures, but it is still 
adequate for many applications. 

You can write a program Eo monitor the temperature ev- 
ery fifteen minutes and to graph the results. You might have 
the c-omputer generate an alarm sound whenever the temper- 
ature exceeds a specified range. Data logging and remote 
sensing are just two of the advantages of using your com- 
puter as a thermometer. 

A second thermistor can be easily added to Control ft>rt 
1. Add another wire to pin 7 (5 volts) and a wire to pin 
5 (POT Y). In Thermal Connection read the second ther- 
mistor with PEEK(252) iastead of PEEK(252) for the Com- 
modore 64, or use POr(2) for the Commodore 128. It is 
possible to connect and read as many as four thermistors 
at once, but C-64 owners should use the four-paddle pro- 
gram given in the Programmer's Reference Guide if more 
than tvra are used. 

You can measure relative humidity with two thermistors. 
Wrap one in a cotton wick and keep it wet. Spin it rapidly 
overhead in a medium-sized circle and record the temper- 
ature. Leave the other one dry and record its temperature. 
The temperature difference between the two is because of 
the evaporation rate from the wet one, and that depends 
upon the relative humidity. A book on meteorology or psy- 
chrometry will show you how to convert the temperature 
difference into relative humidity. 

Let me know what other applications you come up with. 
Hmmm. 1 wonder how cold the rock salt and ice makes 
my ice cream freezer, I wonder if my old 1541 disk drive 
is really hot enough to melt steel. I wonder how well my 
attic insulation works, I wonder how much the tempera- 
ture in my refrigerator varies throughout the day. How did 
I ever manage without a computer-based thermometer? D 
SEE PROGRAM USTINGS ON PAGE 66 
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A well-placed window can give a C-128 BASIC 
program a very sophisticated look. The 
WINDOW statement in BASIC 7.0, however, 
is essentially a no-frills command. Window 
Dressing provides four routines to enhance your text screen 
displays. Program 1 POKEs the machine language for Mn- 
dow Dressing into location 4864. It can be located else- 
where by changing the variable SA in line 110, The pro- 
gram uses 247 bytes plus 200 bytes for storage immediate- 
ly after the ML. The four routines are accessed with SYS 
statements. If SA is the start address, then FRAME =SA, 
AT=SA+3, CR=SA+6, and ED=SA-l-9. 

WINDOW FRAMi 

Calling FRAME quickly prints a neat box around the 
perimeter of the current window and (optionally) a head- 
ing at the top of the box. A window is then opened inside 
the box. Your WINDOW statement should therefore open 
a window two columns wider and two rows taller than 
needed. The syntax is SYS FRAME [,,,,, heading]. The 
five commas must be present if a heading is called for. The 
routine uses the current character color and mode (normal 
or reverse) for the frame. The characters used are COM- 
MODORE A, SHIFT * and COMMODORE S for the top, 
SHIFT-, cursor right, and SHIFT — for the sides, and 
COMMODORE Z, SHIFT * and COMMODORE X for 
die bottom. These characters were chosen because they ap- 
pear the same in uppercase/graphics or upper/lower case. 
Th^ can be changed. 

The heading can be anything PRINTkble: string or num- 
eric variables or literals, color changes, cursor controls, 
etc. The heading begins at the upper left comer of the frame. 
Start the heading with a cursor right if you don't want to 
overwrite the comer character. There is no error checking 
of the length of the heading versus the width of the win- 
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dow. If the heading is a string variable, the LEN and 
RWINDOW(l) functions can be used to determine if the 
heading is too long for the window's width. Note that RWIN- 
DOW(0) and (1) return the number of rows or columns mi- 
nus one. 

Once the inner window is opened, the routine performs 
a "dummy" PRINT. This turns off reverse printing if it was 
enabled. 

PRINT AT AND CURSOR RiSTORl 

While CHAR can be used as a form of PRINTAT on 
a text screen, there are a few problems with this. The CHAR 
statement will only print characters within quotes or string 
variables. Numeric values must first be converted to strings 
using STR$. Strings must be concatendated if you want to 
include more than one in a CHAR statement. CHAR0,5, 
10,M$;H$ causes a SYNTAX error. Once CHAR has moved 
the cursor, it cannot easily be returned to where it came 
from. Early versions of the C-128 ROMs have a bug when 
CHAR is used in 80 columns. 

The Kemal PLOT routine at 65520 (or 49176) could be 
used to move the cursor to a selected row and column be- 
fore a PRINT statement. The "AT* routine provides a few 
enhancements to this approach: 

SYS AT, flag, row, column [,, string] 

The first value, flag, determines whether the cursor will 
be returned to where it was before SYS AT. This parame- 
ter cannot be omitted. If 0, the cursor is restored. Any val- 
ue from 1 to 255 defers cursor restoration. The cursor po- 
sition is saved, but will not be restored until SYS CR. This 
allows us to follow SYS AT with multiple PRINT statements 
before returning the cursor to its original position, if at all. 
Row and column refer to the current window dimensions. 
Note that these are in a different order than that used by 
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ll=RU!tlPO 

AM864:FR^SA. 
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CHAR. If row or column are beyond the dimensions of 
the current window, AT returns with ILLEGAL QUAN- 
TITY. Error messages for this routine and the next can be 
turned off by POKEing any non-zero value into SA -I- 2L 
Your program could use RWINDOW(O) or (1) to determine 
the window dimensions and make corrections if an upcom- 
ing row or column will be out of range. 

The double commas preceding "string" must be present. 
String is anything PRINTable. including ESC codes. Al- 
though there are routines in ROM to save and restore the 
cursor position, these are used by a number of ESC char- 
acters. If AT were to use these routines, certain ESC codes 
in the AT string would destroy the previous cursor posi- 
tion. The AT routine stores the cursor column and row in 
more secure locations (SA-(-22 and 23). SYS CR restores 
the cursor to where it was before the most recent SYS AT. 

ID 

A number of locations in zero-page and page three keep 
track of the screen dimensions, character color, cursor lo- 
cation, where the tab positions are, and which screen lines 
are linked or continued from the previous line. These val- 
ues are called the Screen Editor variables. The final rou- 
tine saves and recalls five sets of editor values: 



SYS ED, set, dir 

where "set" is - 3 and "dir" is lo save, and any non-zero 
value to recall. This will allow a program to jump from 
window to window, printing menus, receiving INPUT, or 
resuming PRINT where it left off. For four sets of editor 
values, the routine uses 200 bytes immediately following 
the ML. Storage can be moved elsewhere. Note that the 
contents of the screen are not saved— only those parame- 
ters mentioned above. 

THE DEMO AND ALTERATIONS 

Program 2 demonstrates usage of the Window Dressing 
routines. It assumes that the ML is located at address 4864. 
Change the value of SA in line 520 if Window Dressing 
is located elsewhere. The program determines which screen 
is in effect using RWINDOW(2) in line 510, and adjusts 
itself to 40 or 80 columns. In line 530, alternative fhune 
characters are defined. The codes for these characters are 
POKEd into the cassette buffer. When needed, the FRAME 
routine is altered to use these characters by POKEing SA 
-t 172 and 173 with the low byte and high byte of the first 
address of the new characters. (POINTER cannot be used 
for this because the characters must be in RAM with the 



10 SlfS7f/J 
20 .OPT P.Vj 


Source Code for Mfincfow OreMMing 


30 *- $13f/J 
40 ; 


Compiled in 64 mode using tite PAL assembler (Pro-Line, Inc.) 


Srj ; WIHMW DRE.SSIHG 


500 DEC tE4 


960 PRTIT INX 




60 : 


5iO DEC $E7;INSI0E THE FSAME 


970 LDA FRAHf;,X 




70 CHRGOT - $0386 


520 JSR SCA32;CLR SCREEN LINKS 


980 JMP SCVX); PRINT CHB IN 


A & RTS 


80 ; 


530 JMP $C76F; PRINT RETURN i RTS 


990 ; 




m : ENTRY POINTS 


540 J 


K//J LINK2 STX $C3 




Vlf) ; 


S5fJ PBTAT PHA! RESTORE CURSOR IF A-fj 


1010 TAY 




no CLV:BVC BEGIS'iDRAW WINDOW FSAME 


56fJ LDA $fiC 


1020 LDA KAREA 




120 ; 


570 STA TEMP; SAVE CRSR POS 


1030 LDX #>AREA 




130 aV:BVC PRTAT; PRINT AT 


580 LDA SEE 


1040 CLC 




140 i 


590 STA TEMP+1 


10y> ADC ADDfTBL.Y 




150 CLV:BVC RSTCRS; RESTORE OTISOR 


vx) novErr clc;WTll move crsr 


1060 BCC LINK3 




160 J 


610 JSR $0-U8;CALL PLOT. X-ROW, Y-COL 


1070 INX 




170 CLViBVC LINKS; SAVE/RECALL ED VALS 


620 BCS ERRI;1F X S Y INVALID 


lfj80 LINK3 LDY $03 




180 J 


630 JSR CreSTE 


IW; STA $C3 




190 mm .Asc "[c A)[9 *i(c s)[s -)[ri 


640 PLA;GET ACa-ML 


IW) STX $C4 




GHT][s -](c Z)ts •lie I)";FRAHE CHRS 


f>yi BEO RSTCRS 


1110 LDX ISIA 




2fjfj ERREKB .BYT 0;ERR HSG ENABLED 


660 DOSEPLOT RTS 


1120 TYA 




210 TEMP .BYT 0.0;H0LI5S CRSR ROW/COL 


670 ERRl PU 


llSfj BNE LISK6 




220 ADDTBL .BYT 0.40,8fj,120,16rj:USED TO 


680 EBRHSG LDA ERREKB; IF ZERO PRIST MESS 


1140 LDY »»25 




CALCUUTE STORAGE LOCATICW 


AGE 


1150 LINT* DEY 




zyi : 


690 BNE DONEPLOT 


lia'j LDA $EO,X 




240 BEGIN JSR $CiynCBSB HOME 


TfXj JMP i7D28:im!TY 


1170 STA {$C3),Y 




25f) LDA $Fe 


710 ; 


llSfj DEX 




260 STA $CF;SAVE SCROLL FUG 


720 LINKS CMP #Jf>5 


ll^j BPL LINK4 




270 JSR SCAE5; DISABLE SCROLL 


730 BCC LINK 2 


12^/; LDX #$0D 




28fi LDI tSTT 


740 BCS ERRMSG 


1210 LI(tK5 DEY 




291 JSR FRPRT 


750 ; 


1220 LDA S0354,I 




y/j LOT. $E5:GEr iw row 


760 RSTCRS LDA TQiP 


123rj STA CSC3),Tf 




310 INY 


770 STA SEC 


1240 DEX 




320 STY tCE 


78^; LDA TH1P+1 


1250 BPL LINKS 




yyi LhTEDG JSR FRPRT; START AT LEFT EDGE 


79fJ STA SEB 


126fj RTS 




340 INC $CE 


80fJ JMP JC15C;SET POINTERS 


1270 ; 




3y> LDY $CE 


810 ; 


t28f/ LISK6 LDY #$25 




360 CPY *E4;HAVE WE REACHED BOTTOM"?" 


820 CHKSTR JSR CHRGOT; PRINT ANYTHING"?" 


129^) LINK7 DEY 




370 BEQ BOTTOH 


BVl BEQ DONEPLOT; NO 


l3f/> LDA ($C3),Y 




aef) DEX 


840 JSR J795C!CHK CO(«A 


1310 STA SEO.X 




39fi DEX 


850 JMP J555AiPRT STRING 


1320 DEX 




¥/> DEX 

410 BNE LFTEDG 


86fJ ; 

870 FRPRT JSR PRTIT;LEFT EDGE 


1330 BPL LINI7 
1340 LDX #SOD 


-*-,-=- 




420 BOTTOM JSR FRPRT 

430 JSR $C854:CRSR RT MOVES TO HOME 


880 LDY $E6;LEFr COL. 
890 INY 


135fJ LINKS DEY 
1360 LDA ($C3).Y 




440 JSR CHKSTR; PRINT ANY HEADING 


Viti INX 


1370 STA S0354,X 




450 LDA $CF 


910 CENT JSR PRTIT+1; CENTER 


13S0 DEX 




460 STA $F8; RESTORE SCROLL FUG 


920 INY 


1390 BPL LINKS 




470 ; 


930 CPY $E7; RIGHT COL 


iW) RTS 




4S0 SHALL INC SE5 


940 BNE CEKT 


1410 ; 






950 ; 


1420 AREA .BYT 0;EDITOR STORAGE BEGINS 



38 AHOri 



MIIURVINO to COUIMN SCRIINS 

The memory-moving feature of TexiSave (January 
1988) can be combined with SYS ED to save and recall 
twD 80 column screens. In this way, you could save the 
screen, qjen a window, and then recall the screen, replac- 
ing what was overwritten by the window. 

First, some memory must be set aside in RAM to 
hold the 4K of each 80 column screen: 

GRAPHIC 1: GRAPHIC 

sets aside 9K of memory beginning to address 7168 nor- 
mally used for a bit map display. This area wiU be safe 
untU a GRAPHIC CLR command. The BASIC subrou- 
tine to save/recall 80 columns should look something 
tike this: 

2'/jO poke 195,0: POKE 196, SH: POKE 174 

,0: POKE 175, EH 

2010 SYS TS+236,0,0,D1: SYS ED,S,D2t R 

ETURN 

Line 2000 sets up the start and end address (+1) in RAM 
for TextSave to move. "SH" is the start address div- 
ided by 256 and "EH" is 40% bytes higher, also divided 
by 256. In line 2010, "TS" is the start address of Text- 
Save and 0, 0, tells the routine to start at address in 
VDC memory, the normal location of 80 column text. 
Direction Dl is to move data to 80 column memory 
and D2 is > to restore screen editor values. To save 
an 80 column screen, Dl is > and D2 == 0. "S" is 
the set of editor values. It's up to you to keep track of 
which set goes with which displ^^. 

ML.) The default characters can also be changed by POKE- 
ing new codes into SA -I- 12 through SA + 20 in the order 
described earlier. 

In line 340, SYS 52591 calls a ROM routine to turn on 
the cursor. This provides a cursor for use with GET or GET- 
KEY as an alternative to INPUT. The cursor is turned off 
by calling another ROM routine at location 52639 with 32 
in the accumulator. 

To change the location of editor storage, POKE the low 
byte and high byte of the storage address into SA + 181 
and SA + 183. Each set requires 40 bytes. If error mes- 
sages are disabled as described earlier, storage can be in 
RAM above 16383. The computer must be in the BANK 
configuration in this case, before SYS ED. For the other 
routines, the C-128 must be in BANK 15 since several ROM 
routines are used. "AT" and "ED" set the processor carry 
flag if aiiy values are out of rai^e, so RREG,,,SR, imme- 
diately after the SYS, reads the status register into SR. IF 
SR AND 1 = 1 THEN something went wrong. 

If error messages are enabled, the TRAP statement of 
BASIC 7.0 can be used to prevent ILLEGAL QUANTITY 
from messing up your screen. Note that parameters great- 
er than 255, or strings where numbers should be, cause 
SYS to return with the appropriate error message regard- 
less of the condition of the Window Dressing error mes- 
sage flag. D SEE PROGRAM USTING ON PAGE 69 
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Send your comments on any aspect of Commodore com-l 
puting to Flotsam, c/o Ahoy!, Ion International Inc., 45i 
West 34th Street- Suite 50a New \brk, NY lOOOl. | 

I would like to thank you for the past few years of very 
good reading. The magazine is well-balanced, with a wide 
variety of articles. It seems to cover all the different as- 
pects of Commodore computing, not to mention the talented 
writers. Of course, I do have a complaint or two. I don't 
feel that the average Commodore user is that interested in 
COMAL. This section could possibly be used to teach beg- 
ginners BASIC, ML, everyday commands, etc. 

I am an average user who is eager to learn in a non-com- 
plicated w^ (like most people I talk to). Between work and 
life's other necessities, 1 don't have the time to study as much 
as I should, so I like your magazine and its quick tips. Again, 
thank you for making computing on my C-128 less frustrat- 
ing and more enjoyable. _ ^_ —John Burke 

--^^ Rosedale, NY 

We began out COMAL Column because we fell the lan- 
guage had not received the press it deserved. But space, 
as you indicate, is at a premium. As of the next installment 
(September), COMAL coverage will cease for the time being. 

There is very little software available for the C-128 in 
its 128 mode, and there appears to be little on the horizon. 
Therefore, when Ahoy! publishes a program for the 128 that 
uses some of the great characteristics of the machine, 128 
owners are naturally very enthusiastic. 

I recently read that Commodore had sold one million 
C-128's. That is a large number for potential sales of soft- 
ware and is generally beii^ ignored by the software houses. 
However, there is a possible alternative. If Ahoy! were to 
publish a special issue on a yearly basis dedicated only to 
the C-128, 1 believe that C-128 owners would feel tiiat they 
had died and gone to heaven and would make such a venture 
a huge success. With Blakemore, Rupert, et al, you certainly 
have the talent to put it over. — Neal Smith 

Rochester, NY 

W&y love to do as you suggest, Neal. But remember the 
Aesop's fable about the man with the donkey? See below. 

I first became interested in your mag because of Tips 
Ahoy! As a relatively new Commodore osvner, I was hungry 
for programming hints and tricks. I was satisfied for awhile, 
but it seems lately you've been allotting an unproportion- 
ate amount of space to the 128 user. Please don't assume 
that just because breakthroughs in computer technology have 
been advancing at phenomenal rates that all of us 64 own- 
ers have been experiencing the same phenomenon with re- 
gards to our salaries. Heck, there are a lot of us that haven't 
even utilized the potential of our 64's yet. I don't think your 
readers would mind a couple fewer game programs if it 
meant expandii^ your more usefiil columns (i.e. , Tips Ahoy! 
and Flotsam). —Tom Rowan 

Ft. Wayne, IN 
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Send your best programming and hardware hints for the 
C-64, C-I28, or Amiga to Tips Ahoy!, c/o Ion Interna- 
tional Inc., 45 W. 34th St.-Suite 500, New York, NY 
10001. Include a stamped and self-addressed envelope. 

LET TOUR rUNCTIOM KEYS ESCAPE 

The Commodore 128 has numerous useful and entertain- 
ing ESC-key combinations, some of which are so dam good 
you wonder why Commodore didn't put a specific key for 
them right on the keyboard. ESC-D, for instance: that one 
deletes one line on the screen, moving all the text after it 
up one line. I use it all the time! But Fm lazy, and abso- 
lutely hate having to press two keys to do anything. So in 
the interest of cutting my typing in half; 

KEY7,CHR$(27)+"D" 

Now when F7 gets pressed, it does the same thing as 
an ESC-D. Follow that up with: 

KEY8,CHR$(27)+"I" 

and pressing F8 inserts a line. I know, I know, we're back 
up to two keypresses, SHIFT plus F7, but now they're in 
the same comer of the keyboard. (And easier to find at 
3:00 a.m.!) After all, they're related functions, right? Now 
try these; 

KEYl ,CHR$(27)+"A"+CHR$(27)+"E" : REM AUTO 
INSERT ON, CURSOR FLASH OFF 
KEY2,CHR$(27)+"C"+CHR$(27)+"F" :REM AUTO 
INSERT OFF, CURSOR FLASH ON 
KEY3,CHR$(27)-)-"V" :REM SCROLL TEXT UP ON 
E LINE 

KEY4,CHR$(27)+"W" : REM SCROLL TEXT DOWN 
ONE LINE 

Nothing fancy, just some more "related" ESC codes and 
suggested ftinction keys to store them in. If you really like 
a particular sequence, you can preserve it forever by typing 
a line number before the KEY command; 



1000 COLORO , 1 : C0L0R4 , 12 
1010 KEY5,CHR$(27)+"T" ; 
FT CORNER OF WINDOW 
1020 KEY6,CHR$(27)+"B" ; 
GHT CORNER OF WINDOW 



REM SET UPPER LE 



REM SET LOWER RI 



I have a more elaborate version of that little prc^ram saved 
on my main C-128 programming disk, named "KEYS". The 
first thing I do when I turn on my 128 is type RUN''KEYS" 
and all my fevorite function key combos are restored, along 
with a pleasing screen color. You can build tremendously 
elaborate ESC-key combos into the function keys. 

—David F. Paulsen 
Houston, TX 



Compiled by Michael ll« DavHa 



RIPPLES 

This short program for the C-64 and C-128 plots several 
concentric circles in extended background mode, then cy- 
cles through the different registers to give the illusion of 
motion. It takes about five minutes to plot all the circles, 
so be patient. This is one of those deals where the display 
looks good, but it's left up to you to find a good application. 

—Cleveland M. Blakemore 

•10 REM RIPPLES FOR THE C-64 OR C-128 
•20 V=53248:N=6.3:H=20:W=12:M=19:U=1:L=.5 

:K=40:B=1024:J=24;G=64:S=32:0F=54272 
•30 PRINT" [CLEAR] ": P0KE53281, . :P0KE53280, 

. :POKE53265,PBEK(53265)OR64 
•40 P0KEV+34,1:P0KEV+35,12:P0KEV+36,11 

• 50 E=30/25 : C=l : FORR=MTOUSTEP~U 

•60 FORT=.TONSTEP(U/(R-i-R)) :X=INT(E*R*COS( 
T)+H+L);Y=INT(R*SIN(T)+W+L) 

• 70 P=Y*K+X4-B : IFX> . ANDX<K ANDY> . ANDY< JTHEN 
POKEP,S+G*C 

•80 NEXT: C=C+U+(C=3)*3: NEXT 
• 90 POKEV+34 , : POKEV+35 , : POKEV+36 , 6 
•100 A=PEEK(V+34):B=PEEK(V+35):C=PEEK(V+3 
6 ) : POKEV+34 , B : POKEV+35 , C : POKEV+36 , A 
•110 FORX=.T060:NEXT:GOT0100 

SPLIT FACE 

Split Face scrolls half the screen left and the other half 
right. All character colors are maintained as your screen 
takes on a split personality. Now you have a clear screen 
that's ready for your next title, menu, or graphics display. 

Append Split Face to your own programs and have them 
run the loader to POKE the data into memory. It works 
on the C-64 and C-128 in 40 column mode. Whenever you 
want Split Face to drop the hatchet, enter the following: 

100 SYS 49152 

For the C-128 it would be: 

100 SYS 4864 

The line numbers are only examples. You can use any line 
number you want. 

To demonstrate, run the loader. Now list the program to 
fill the screen. Cursor to the top and enter in direct mode 
(no line number): 

SYS 49152 

(SYS 4864 for the C-128), then press RETURN. Your char- 
acters will split like a knife through butter. 
Split Face can be relocated by changing the variable A 



40 AHOY! 



BACK ISSUES OF 



#2-FEB. '84 iiiustrateo tour oi ite 1M1! 
AtJjficial intelligence' Synapses Ihof Wolosen- 
ko irvlerviewed! String functions' And ready 
to enter: Music Maker Pan III Scteen Manip- 
ulatian' Nigh! Attack! Relative Files! 



#3 -MAR. "84 AnatornyotffieMI Printef 
interlacing tor VIC & 64' Educational saftv/are 
series begins! VIC game buyers guide! And 
ready to enter: Address Book! Space Unes! 
Random files on ttie 54! Dynamic Power" 



^ 



wj': 



#5— MAY '84 Future of Commodore' in- 
side BASIC storage! Memory management on 
ttie VIC i 64! Guide !o spreadstieeis! Hurray 
(or arrays! And ready to enter: Mam Master' 
Air Assaul!' Biorrri'ttims! VIC CalculatOf' 



#7- JULY '84 MSD dual disit dnve! Data- 
base buyer's guide' Training your cursof! 
Screen displays! File Sleutti' Users Grouijs! 
And ready lo enter: Renumbering! Checkiist< 
Math Defender! Brisk' Wliafs lu^ JoB? 



#8 -AUG. '84 Choosing a word proces- 
sor! Computaliona! wizardry' Creating your 
own word games! Sound on ttie 64' And 
ready to enter: Micro-Hinder! Directory As- 
sistance! The Terrible Twins' Words Wonh' 



#9 — SEPT. "84 PTDgram your own !ett ad- 
VEfflure! Buiiri a C-64 cassette interface' Vid- 
eo flAM! Word processors, part II! And ready 
!0 enter Salvage Diwr! DOS! Sound EKplorer' 
TIte Castle of Darkness! Base Conversions' 



#10— OCT. '84 C-64 graphics programs' 
Bil-mapped graphics' Joystick programming! 
Graphics processing' Antl ready to enter VIC 
40 Column Operating System' BAM Rear) & 
Print! Emerald Elephant! Lawn Job' 



#11 - NOV. '84 Music programs 4 key- 
boards fo: the 64' Graphics feature contm- 
ues! 2-D arrajTS' Ana ready to enter: PTE wont 
processor! Block Editor! Ahemate Character 
Set tor the 64! Tunnel of Tomachon' 



#12 -DEC. "84 Buyer's guide to printers! 
1525 jsrinter tutorial! FyUO'V^^ *''"' '^''^' 
lom charaMM||j9 Mrto KMMM Pas- 
cal! Divin^mo BASIC! And ready to enter: 
Construction Co.! Space Patrol! Cross Ref! 



#13- JAN. '85 VIC and 64 OS exposed! 
Sprites! insert a 1541 device # disconnect 
svfitch' Ghoslbusters! And ready to enter; Ul- 
tra Mail! Music Tutor! Alice in Adventureland! 
Midprint! To the Top! Tape/Disk Transfer! 



#14- FEB. "85 Printer imerfacing! Multi- 
color sprites! Moiiems! Bulletin Boards! The- 
ory of game design! Buying a modem! And 
rearJy !o enter Futurewar! Fonlasia! VIC Era- 
ser* Insurance Agent! Flankspeetf' Telelink 64! 



#15— MAR. "SS Creating multiscreen 
gameboards! Inside the PfusM! Commodore 
DOS! And ready to enter: Old Routine! Pro- 
grammable Functions! Automatic Line Nos' 
Home Budget! Salmon Run! rjumerology! 



#16— APR. ^ Assembly language col- 
umn begths! Programming the joystick! 1541 
disk drive aJtematives! The Kernal! Antl ready 
to enter. Hop Around! Faster 64! Boater! Eie- 
check! BASIC Trace! Space Hum' 



#17- MAY '85 Disk drive enhancements! 
Instai! a reset switch! Assembler escapades! 
And ready to enter; Super Duper* Two-Col- 
umn Directory! DSKDU' Raid! DOS Plus! Font 
Editor! Tile Time! Interrupt Wedge! 



#18 — JUNE '85 It^ustc & graplttcs entry 
system! How modems vmrk! Inside the 6510' 
And ready to enter: Quad-Phnt! Mapping 4.4! 
Towers o1 Hanoi! Speedy! Duck Shoot! 8it 
Dumping' Screen Magic! 6510 Simulatori 



#19 -JULY "85 PROM Programming' 
3-pari hamiomes on VIC/64! Speeding pixels! 
And ready to enter; Auto-Append! Script Anal- 
ysis! Wiiartl of Im! Lucfcy Lotlery' Brainframe' 
Etch! Pfintat! Autos l.e3Sing v. Buying! 



#20- AUG. '85 Inside the 128! Real-world 
simulations! Sound eMecIs' Modems' And 
ready to enter; Windov»s! Formatter' Sound- 
a-Rama! Screen Dump! Seiectachrome! Dis- 
integrator' Rflgite! Gators N Snakes! 



#21 -SER '85 Inside the I57i drive and 
128 keyboard! Sprite programming! And 
ready to enter Fastnew' Go-lister' File Lock! 
Dragon f/pt'. Superhero! Auto-Gen! Moxey's 
Pofcti! Fish Math' Ahoy'DocW Inwetive! 



#22— OCT. '85 Crjaie cartoon characters! 
inhnitesimal intngue! Secrets of copy protec- 
tion' And ready io enler: Shotgun! Maestro' 
Solitaire' Mystery at Mycroft Mews' Gravi- 
nauts! 1541 Cleaning Utility! Sliadey Dump' 



#23 — NOV. "85 Guide to ativenture gam- 
ing! ML spnte manipulation! BASIC for begin- 
ners! And ready to enter: Lightning Loader' 
KnigbTs Tour' Chopper Flight' Rttytbmic Bits' 
Inslam Bug Repellent' File Scout! Slither' 



#24 -DEC. "85 Speech synthesizer' The 
IBM Connection! The year's 25 best entertain- 
ments! And ready to enter; Gypsy Starship! 
Directory Manipulator! Cloak' Gameloader! 
Jewel Quest! Lineout' Santa's Busy Day! 



#25— JAN. "86 Build a speech ^mhesiz- 
er! Survey of sports games! And ready to en- 
ter: Martian Monsters! Streamer font! Micro- 
sim! Haunted Castle! Knockout! Inttaraid' 
Alarm Cloc)(' Memory Check' Scratch Pad! 



#26 -FEB. "86 Windows! BoiM an auto- 
enec cartridge! Align your 1541! Survey of 
flight simulators! Structured programming! 
And ready to enter: Arena! Head to Head! 
Crabfight! Treasure Wheel! Character Dump! 



#27— MAR. "86 Pnjgramming education- 
al games' Memory dumpers' Choosing a 
copy program' Custom characters! And ready 
to enter: AhoyfTerm 128! Tnvta Game Maker! 
Brickbusters' Easy Lister! Programmers Aid' 



#28 -APR. "86 Comet catching! Survey 
of action and strategy games! Screen dum- 
ping! And ready to enter; Chrono-Wedge! Mr 
Mysto! Air Rescue! Notemaker! Screen Win- 
dow' JCALC! Hidden Cavern! Swoop! 



#29- MAY "86 12B graphic bit map! Epyx 
strategy guide! 128 commands! ML music 
programming! And ready to enter; BigprJnt! 
Star Search! Failsafe! English Darts! Sl(i Folly! 
Free RAM Check! Alchemist's Apprentice! 



#30-JUNE '86 Debugging dilemmas! 
Public domain software' Winning at Ultima! 
Computer Aided Design! And ready to enter: 
LazyBASICI Got A Matcit? Star Strll^e! Queen's 
and Bishop's Tours! Shaker! Trackdown! 



#31 -JULY '86 Inside the Amiga! Condi- 
tional branching! Chess programs! 128 and 
64 DOS' And ready to enter; Screen Sleuth! 
Skull Castle! Head-on! Nebergafl Run! Word- 
count! Crazy Joe! Fidgits' Music Schooi! 



#32 -AUG. '96 Inside the Amiga, pan II' 
Approaching infinity! C-64 war simulations! 
Pascal for beginners! ML graphics! And ready 
to emer Reversi! Highlight' Disk Cataloger' 
Meteor Run! Trim! Step On It! Flap' 



#33 — SEPT. '86 Windows and viewports' 
Sound & music on the 64! COMAL! And reatly 
to enter: The Last Ninja! Speecti64! Multi 
RAM! Dogcatcher! Trapped' Maichblocks' 
Variable Manager! Dual Dump! Mine Canyon! 



#34 — OCT. "86 Build a digital oscilloscope' 
Ml speed techniques' And ready to enter. 
Vault of Terror! Ouick Change' Penguins' At- 
tack Force' Disk Checkup! Dvorak Keyboard' 
Mountaineer Mack' 126 to 64 Aulobool' 



#35- NOV. '86 C-128 Shadow registers' 
Data hie handling! PROMAL' Habitat! And 
ready to enter Teleporter' 128 RAM Check' 
Discs of Daedalus! Guardian' Tenpins! Syntax 
Patrol' Deluxe List! Long Lines' Detonation' 



#36— DEC '86 File manipulation' C-128 
shadow registers! Football games' And ready 
to enter. The Arhst! Minotaur Maze! Mouse 
m the House' Lazy Source Code' Rebels and 
Lords' Speed'A^'' The Editor' Micro City' 



#37— JAN. "87 Pointers and the rnonitor' 
Best games o! '86! DOS for beginners! And 
ready to enter; Vartett' Hanger 14! BASIC 
Ahoy! Catacombs' Liiter! Dark Fortress! Per- 
maLine' Star^igfiter' Bugout' Screens! 



#38— FEB "87 Hacking into machine lan- 
guage utiities! Amiga RAM expanders' And 
ready lo enter; Window Magic! Cninchman! 
User Conventions' The Adventurer! More 
BASIC 128' Jailbreak! Turtle Rescue' 640! 



#39- MAR. '87 Basic esthetics! Survey 
of video digitizers! Multiplayer games! And 
ready so enter: C-64 Compressor* Wizard Tag! 
Turbopoke' Rescue 128! Lights Out! Pinball 
Arcade' Stow Away! Caverns of Geehonk! 



#40-APR. '87 Inside the Amiga 2000' 
Fractals! Baseball games! COMAL, turtle 
graphics, and Logo' And really to enter: Info- 
fkjw! Laps! Pieman! List Formatter! Scramb- 
ler! Extended Background Mode! Planet Duel! 



#41 - MAY '87 Kemal power' 64 and Am- 
iga graphics! Micravrarlds in COMAL! Brain 
games! Dark Fortress master maps! And 
ready to enter: Moondog! Startup! Iffusion 
Master! Wall Crawler! Scavenger HuntI 



#42— JUNE "87 fttegaflops and microsec- 
onds' Sci-fi braingames! C-64 to Amiga file 
transfer! And ready lo enter; D-Snap! Wraiths! 
Galactic Cab Co! Cave of the Ice Ape' ALT- 
Key 128! Power Squares! 128 Multi RAM! 



#43 -JULY "87 Real worid interlacing! Bit 
map graphics tutorial! C-84 graphic conver- 
sion! Martial arts software! And ready lo en- 
ter: Wizard Tag II! Data Creator* Ptink & Pkink! 
Univaders! Data Express! 128 Scrolleri 



#44— AUG. '87 Electronic screen swap- 
ping on the C-128! Science fiction action 
games! The death of GOTO! Amiga reviews! 
And ready to enter: Archer! Banner Print! 
Route 64! Steeplechase! Batter Up! Scanner! 



#45- SER *87 The 128 versus The 
Clones' Building an Amiga trackball! MSD up- 
date! CES Report' And ready to enter: Crys- 
tallus! Spriteshell! Hoops! Chammail! No 
Wews! PS to GEOS! Centerlold! Red Aterl! 



#46 — OCT. "87 A rainbow of data siruc- 
iures' BASIC 8.0 reviewed! Buying guide to 
COMAL! Tips Ahoy! Art Gallery! And ready to 
emer; Empire! C-64 RAMDnve! Hotfoot! Plat- 
forms! Spray-Cam! Jam Attack* 



#47- NOV '87 The ins and outs of data 
organization! Ovenrtew of C-64 memory ex- 
panders' Commodares! And ready to enter; 
Orbit! RAMCO! A-MazE-Ing! Line Sentry! Des- 
ert Front! Paper Route! Flash Flood! 



#48- DEC. '87 Exploring artificial 
intelligence! Expansion port tutoriall Memory 
eipanilersi And ready to enter Redirect! Sil- 
houetle! Fueling Station' Take Two! Pizza Boy* 
Sprite-On! Warship! Cliftbangerl 



#49— JAN. '88 fterative mathematics and 
graphics! Expansion port tutorial, part II! The 
best C-64 ana Amiga games of 1987! And 
ready to enter; Infotlow 64! TeilSave! Clone- 
A-Matic' Ice Titans! Jungle Jake! 



#50 — FEB '88 Investigating audible wave 
phenomena! Cartndges' Commodore 64 em- 
ulators for the Amiga! And ready to enter: 
Coffee Break! Crypt of Fear! Screen Wizard! 
ML RangeM 128 Smart Merge! Marauder! 



#51- MAR "88 Synthesizing waveforms! 
Comprehensive guide to Commodore pow«r 
Supplies! Utilizing Amiga HAM nwle! Art Gal- 
ery! And ready to enter Vee Kloros! The Ex- 
tractor! 3-D Graphic Projector! Phantasy' 



#52 -APR. '88 BASIC'S hidden treasures! 
Updating your Amiga HMO'S pnnter port! Disk 
drive accelerators! And ready to enter; Time 
Subway! IRQ Messenger for the 64 and 128! 
Spnte Exptoder* Hi-Res Windows! Barricade! 



#54 -JUNE "88 Advanced disk drive 
commands! Creating your own text games, 
part I! Programming in COMAL' And ready 
to enter; Rashgar! Movie Scroll! MOB Blob! 
Snap Snake! Phobia! Lost Dutchman's Mine! 



If ordor mor« 

than four, list 

en sapanrte sheet. 
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copies of issue # copies of issue #_ 

copies of issue # copies of issue #_ 

Enclosed please find my check or money order tor S 

(outside the USA add 51.08 per copy) 

NAME 

ADDRESS 

CITY 



#53— MAY "88 Premier issue of Attoyrs 
AmigaUser. (eatunng- survey of sampling 
software! The essential Amiga game library! 
Guide to Amiga books! Business column! And 
ready to enter AmigaUseiTerm' tlatni Pattern' 



_STATE. 



_ZIP_ 



Send to: Ahoy! Back Issues, Ion International Inc.. 45 West 
34th Street-Suite 500, New York. NY 10001. 
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$4.00 except 
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Since 1981 



Lyco Computer 

Marketing & Consultants 



Lyco Means Total Service. 



Monitors 



COMMODORE M COMMODORE 



A 



Mark "Mac" Bowaer. Sal«a Mnnngar 

\ would peraonilly Ilk* to thank all of our past cuslomers for helping to 
mah* Lyco Compular ona of th« largfiat metl order compantas and a 
lai^dar In Iha Induatry. Also, I woiiM liko to exland my potsonnl InvllAHoii lo 
all computnr Qnttig^in^ls who havn nol exporl^ncnd 1N@ 5f>rvicn9 Ihat we pro- 
vide. Please call our (rained sales staH at our tolMr^a number lo Inquire 
about our diverse producl line arxl weeldy specials. 

Frral and loramoal our phlFosophy la to keep abraatt of Iha changing 
market *o Ihsi wo can provide yoij vi^ilh nol only tactpry trpsh merchnnrii'ie 
bul also Iha n^vvcsl rrtodols oirer^ by I^Q mariufaciur^ts ni ihe Absolute b^%\ 
possible prkfls Wa oWm the wlde^l $eleclk)n of compuler hardware, soltware 
and accflsioflea 

Faal Iraa lo catl Lyco If you wani to know mora aboul p parllcular llern. I 

can't stress anough Ihel our loHtrea rtumber is nol just 1w ordefS. Many 
companies havn a Idl lre« numbar >or ordefinq, bul il you jjusl want to ash a 
quasiion about a pri^diucl. yon have to make a lo« call- No* at Lyco Our 
(rained SA^as alair l» krtOMV^adgeab^ at»ul all tha products w9 stock and la 
happy 10 ariswaf any C]ua^l>0n3 you oiay hava Wa wHI do om b«si to mftba 
sur# ihai lh* product you selecl wiU lit your applfcallofi Wo bI^o have Salur^ 
day hours — one nwre raaoon lo catl us lor all your computer needs 

One* you've placed your order wiih Lyco, we don't lors*l about you. 

Our Irlartdiy, professional customer service represent al^ea wiFl find answers 
10 your qiiftailona about Ihe status of an o(d«r, warranlhn. product Availabili- 
ty, or pricai. 

Lyco Computer ilocka a muMlmltlon doriar Inventory of tactorY-fraph 

merchandfia, Chances are w* have edacity what you wani right Ir^ our war#- 
house And ttiai niiaane you'll pet It last In lact, orders are normally shipped 
within ?4 hours, Frse fhlpplng on prepaid ortfers over J50. and ll.ore Is no 
deposit requUed on CO D. orders. Air Ireighi or UPS Blua/Hed lapel shipping 
k available, too. And all producta ca^jy the lull manulaciuraia' wairtntles. 

I can't see why anyone would shop anywhere else Selection Irom our huge 
Ir} stock lnv«ntDfy. best pffco, s«rv}C« mat can't be beat— we've got II all t>ere 
■t Lyco Computer. 

TO ORDER, CALL TOLL-FREE: 1 -800-233-B760 
Now PA Wats: 1-800-233-8760 

Outside Conlinental US Call: 1-717^94-1030 

Hours: 9AM lo 8PM. Mon. - Thurs. 
9AM to 6PM. Friday — 10AM to 6PM. Saturday 

For Customer Service, calf 1-717-494-1670, 
9AM to 5PM, Mon. - Fri. 

Or write: Lyco Computer. Inc. ■ 

P.O. Box 5088. Jersey Shore. PA 17740 

C.O.D. Rlek-Fre* Poticy: • tutl manuTacturef^ warranties • no sales tax 
OutSJCJe PA * pnces show 4% cash fliscounl; add *% for crodil cards • APO. 
FPO. intemalional achj S5 plus 3% lor pronty e 4^we6k clearartce on personal 
Ctwdts a we check for credit caifd theft • sorry. compaIit>*lrty not guaranteed e 
return audx>nzatK>n reciupred • due lo iww product guarantee, return reslncllona 
appty * pncfravatlabil'ty aubted to cliange * prepaid order; under $50 m 
Conbnantal US. add S3.00 



Ttwfnaon: 

230 Amber TTUir ™„.. .. 579,95 

4120 Ct^A .„„ ....,$219,95 

4160 CGA ... ...... $254 95 

4460 EGA ....„ $349.95 

GG 200 Sup«r Card ........ $184.95 

4570 SCALL 

THCMVISaNO 

4120 C>OC95 
Monitor ^LL\X 

Magnavox: 

BMreS? „ $79.95 

BM7622 „.„ „ S79.9S 

7eM.613 J75.00 

7BM.6Z3 $79.95 

CMB502 _.... $179.95 

CM8505 $199.9S 

9CM-0S3 _.. $338.95 

CM8T62 „..., $239.SS 

eCM-SIS _ $249.95 

CM90*3 - $329.95 

Blu« Chip: 

BCM %r GfMn TTL $6*95 

BCM 12' AmbOf TTL $69.95 

NEC 

MuMtync II .._ ^. $599,95 



Modems 



Avstox: 

1200» $69 95 

1200i PC CmJ $68.95 

r20tt>cModani $89.95 

2*00 $179.95 

iWOiPCCanJ $169.95 

HavM 

Smartinodwn 300 $14995 

Smartmodani 1200 $285.95 

Sm«rtmod*n 2400 $425.95 

Smarteam 

1200 Baud Modem 




^isyts CompMibl* 



1-800-233-8760 



/ 



Acttvt*k>n 

Cliampian Bastiattiai $19.95 
Musk Sluda $19 95 

Leanwf Goddesses $22 95 

Too Fu«< Eliminatoc $15.95 

Beyond Zoili $25.95 

GR. Football $19.95 

Gae Bee Air Raly $16.95 

LaslMirva $19.95 

MigtiltMaie $19.95 

Nonli Bert $19.95 

Atens $25.95 

Maniac Mansion $19.95 

Banarlei Includad: 

Pap«rcJlp III $31.95 

Oulraaeous Pagas $31.95 

Bartialay Softwotlia: 

GBolilaC64 S29.9S 

QeoCalcC64 $29.95 

Gaos64 $35.95 

Geos 128 $39 95 

GflOWTlte $2995 

Gaownle 128 $3995 

GeopuMish C64 $39.95 

Berheley TriPak $29.95 

Brodarbund: 

Bank a Wntet $27 95 

Carmen San Di«^ S19.9S 

Graphic Uti I. II, III ... $13.95 

PnnlShop S2S.49 

PnnI Shop Compan $22.95 

Cauldron $16.95 

SupobHw CDaianga ... Si i 95 

Matjnatron _ S14.95 

Elactronk Alt*: 

Maibia Madnai* S20.9S 

Yeagof 5 AFT $22.95 

Oenwn SiahMt $20.95 

OragcmsUH $16.95 

Simla or Oia $20.95 

SmmFle* $20.95 

Epyi: 

Deslroyw $22,95 

Fastloaa $1995 

SuUBattlB $22.95 

Wirtter Games $11.95 

Caiifomta Gaines $22.95 

Sir- Sports Basketball $22,95 

Summer Games II $11.95 

Wodd Games $22.95 

BouUerdash Con Set .. $13.95 
Rad Wamof $1395 

Rrablrd: 

Ehte ,-- $18.95 

Guik) o( TTilaves $22.95 

Pwm $22.95 

Trechar $22,95 



Strategic SHnuleUons: 

Gettysburg $33.9f 

Phanlasie II $229! 

Pnantasie ill $22.9! 

Ftoad WaJ 2000 $22.9! 

Wizards Crown $22.9! 

W^game Constr $16.9; 

Banleauisei $33.9! 

Elemal Dagger $22.9' 

Shiloh $22.9! 

Ouestronll $229i 

PlianiBsie $22.9! 

Sonsol Liberty $19,9! 

Subloglc: 

FligM Simulator II $31.4( 

Jet Simulator $24.9! 

Nighl Mission Pinball ,. $16,9! 

Scenery Disk 1-6 $12,9! 

Staaltti Mission $31,9! 

TImeworka. 

PamwrC64 $22.9! 

Partner 12a $27.9! 

Swilt CaJc 128 $27.9! 



^Jamiga 



Accasft 

WorMCtasLead. Bd , SCAU 
Actlvlllon 

Champ, BaskeltHl $259! 

Chsmpiorslip GoU $22Je 

Ga Fooibal $2sa 

Gee Bee Ait Rally $229! 

Electronic Arts: 

GndBon $26J! 

Oneon One $13.9! 

Weaver Basabai $33 9! 

Return to Atlanis $CAU 

Epyi 

ApshaiTnlogy __ $H.9( 

Winter Gwws $22^9! 

Worio Games $22-9! 

Desifoyer $22« 

Flratilrit 

Guild o< Thieves $25.9! 

Pawn ..„ _.. $2SJ! 

Star9Mgr $25.9! 

Ulcroprose: 

Silent Service $22.9! 

Sublogic: 

Flight Simulator II $31.41 

Scenery Disk $CAU 

Unison World: 

Pnnt Uaslef $2S.9( 

All Gallery 1 or 2 $14.8! 



\ 
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New for 88 



Commodore Ready 



Great Price 



526.95 
.- 513.95 
-... $33.95 
b««u SCALL 

L. $11.95 
L. $22.35 
.-.. $22.95 
r-$2!9S 



■inr»«ic»-i»» 



NX-1 000 



• 144 cps Draft 

• 36 cps NLQ 

• EZ Operation Front 
Panel Control 



$179'= I" 



-IL 



Panasonic 

SP 1 80VC 1 091 i Model II 

$129 !1 



• 100 cps draft 

• 20 cps NLQ 



• 192 cps Draft 

• NLQ Mode 

• Excellent 
Versatility 



Quantities 
Limited 



$199 



95 



PRINTERS 



wmr 



SEIKOSHA 



EPSCHVr 



Panasonic 



NX-tOOO $179.95 

NX-10D0C SI79.9S 

NX-IOOOGoln mOM 

NX.IOOOC Coloc S229.0S 

NX.15 sanjs 

NB-10 . . S33SJS 

NR-15 _. t43B.96 

NB-15 24 Pin ....„ „. saog.BS 

NB24-10 24 Pin S43S.95 

Ne24-15 24 Pin $579.9$ 



^CITIZEN 



110 D SI 69.95 

180 D S189.96 

MSP-10 $259.95 

MSP-40 „.- S309.9S 

MSP-15 $349.95 

MSPSO $399.95 

MSP-45 .- - $459 95 

MSP-S5 $539.95 

Premiere 35 $499.95 

TnbuI6Z2* $649.95 



COMMODORE 



SP laoAi ...._ 


$129.95 


SP 180VC 


$129.95 


SP lOOOVC 

SP1000AP. 

SP 1200VC 


$139 95 

St6S.«5 

$155.95 


SP 1200A1 


$165 95 


SP1300ASRS232 .. 

SL 80*1 

MP1300A1 


$165.95 

..... $299.95 
. $269.95 


MPSSOOAi 


.„.,. S399.95 


MPS420Pa 


....$10 79 95 


SP Series Ribbon 


$7 95 


SK3000 Ai 


$339.95 


SK3005 Ai 


$419.95 


SPB ID 


$CALL 


SL 130Ai 


$599.95 



/ 



L2X^; n.-3i: 



/ 



Color System HEADSTART 



t Rewly K> plug m end use 
mmedwtely 

• Ultra fast B Mhz Intel 6068-2 
Proeessw 

• 5t2K RAM memory 
aipandable Ic 76SK 

• 2-360K dak Unves stwdard 
■ Fifvt complete system wtth 

dock calendar and txtit-m 
pom lor pnnter, RS232, 2 
pysticKs, mouse end hgtii pen 
e Includes $500 >Kxm FREE 
sottwa/e programs 

• Hi Ras color monitor inctuded! 



$1049 



Toshiba 

KIS*. $489 

341 SL $659 

P351 MXM II $889 

3SiSX400ei)e $1019 

COMMODORE 

HARDWARE 

1 28D '^' " ^^^ 1^™* $175,95 

_ i581Dts«Dnve $169.95 

SySIGin Indus GT C-6A Dnvs $169.95 

1802C Monitor $189 95 

84 C Computef .„„ $169.95 

lieOComputer'Onve $449.95 

C-1351 Mouse $39,95 

1700 RAM $109.95 

C-17S0 RAM $CALL 

1764 HAM C64 $117.95 

1084 Monitor $399.9S 

12eCom(Xiier $219.95 

Eical 2001 C12B Drive $199.95 

Excel FSD-2+ C64 Dnvs $149.95 

PC 

COMPATIBLE 

HARDWARE 

BCM 12G Sr. Monilor $64 95 

BCM 12A Am Monitor $69.95 

BCC CG Color C»d $94.99 

AST SCAU 

i Laser Compact XT $475.95 

'^ Laser Compact XTH 640K $549.95 

"" Laser DesWop Tuitw KT 256K $569 95 

95 Laser Desktop Tuitn XT 640K . $599.95 



LXBOO _. 

Fxaee . .. 

n(286E ... . _ 

EX800 _ ._ 


$199.95 

$279 95 

.. $424.95 

$399 95 


LQ500 


..$339 95 


LQIOOOwTiKtor 

LQ2500 - 


$54995 

$619 95 


603500 $LOW 

LOeSO .- $525.95 

LQIOSO $715.95 

DIABLO 

025 S*»HK 


635 




BROTHER 

Ml 109 SI 64.95 

M1409 $999 95 


M1509 _ 

M1709 


. $335 95 
$47595 


M1724L _ 

HR20 _ 


$899 95 

$61995 

.. S34S.9S 

$599 95 


HiKo _ „..:.... 


..$709.95 



10801 Model II 
109U Modal 11 

10921 

1592 . 



$179.95 

$199.95 

.$319.95 

.$40919$ 



1595.. 



.. V45BL96 



3131 

31S1 

IMP 4450 Laser . 

1524 24 Pin 
Fa« Partner ...... 



.$a»Ms 



.$47Sl9S 

-.$CALL 

.$SS9S5 

$589.95 



OlumateZO $118 

Oitimale 20 wean $179.95 

120 $189.9$ 

180 $219.95 

182 „ $209.95 

182. $22595 

183 $249.95 

192* $339.96 

193- $449je 

292 w'imarlace $449.95 

293 w'lntaifaoa SSKX 

294 «i/in(affac« _„ $819J5 

383 $855.95 



COMMODORE 640 

COMPUTER 



$449'' 

Commodore 

128DPIU8 

Thomson 4120 

Monttrx 

$649.95 






$169 



95 



PERSONAL 
COMPUTER 

• 4.77 Mhz 

speed 

• Dual floppy 

• Green monitor 
Included 



$579 



95 



Attention Educational Institutions: 

If you are not currently using our 

educational service program, please 

call our representatives for details. 



Reider Service No. 157 



in line 1. Be sure to SYS to the new address if you do change 
it. —Buck Childress 

Salem, OR 

•1 A=49152:REM * (A=4864 FOR THE C-128) * 

(BOTH VERSIONS CAN BE RELOCATED.) * 
• 2 FOR J=AT0A+107 : READB : POKEJ , B : X=X+B : NEXT 

J 
•3 IFX<>17061THENPRINT"ERROR IN DATA[3"." 

]":END ;-^^ - 

•4 REM *** YOU COULD PLACE A RETURN HERE 

IF THIS IS USED AS A SUBROUTINE. *** 
•5 DATA169, 20, 133, 250, 169, 0,162, 4, 160, 216 

,133,251 
•6 DATA133, 253, 134, 252, 132, 254, 162,24, 160 

,38,177,251 
•7 DATA200, 145, 251, 136, 177, 253, 200, 145, 25 

3,136,136,192 
•8 DATA20, 176, 239, 160, 20, 169, 32, 145, 251.1 

60,1,177 
■9 DATA251, 136, 145, 251, 200, 177, 253, 136, 14 

5,253,200,200 
'10 DATA192, 21, 144, 239, 160, 19, 169, 32, 145, 

251,165,251 
•11 DATA24, 105, 40, 133, 251, 144, 2, 230, 252,1 

65,253,24 
•12 DATA105,40,133,253,144,2,230,254,202, 

16,181,160 
•13 DATAIO, 202, 208, 253, 136, 208, 250, 198,25 

0,208,153,96 

tURVITOII 

1000 screen and 1000 color RAM locations! Now just 
how are we as mere mortals supposed to look at the moni- 
tor and know exactly where each one is? If you're trying 
to POKE characters and colors to various locations, it can 
quickly become hair-pulling time. 

You can always use the chance method. Throw darts at 
the monitor from 10 paces and figure that's close enough. 
Trouble is, they don't stick too well. And, if th^ do, you'll 
wind up with an air-conditioned screen. 

Take heart. There is a better way. And it's 100^ accur- 
ate. Surveyor instantly gives you the screen and color RAM 
locations of any place you choose. Let's give it a whirl. 

First load and run Surveyor. To activate it, type SYS 49152 
and press RETURN. Now you can survey the situation. 

Just cursor to a desired target and press the SHIFT and 
CONTROL keys at the same time. Two numbers will 
appear. The first is the screen RAM location and the sec- 
ond is the color RAM location. Try it again. Nice and easy, 
nice and quick. 

Sun'eyor can easily be relocated if you want. Just change 
the variable A in line 2 to your new starting address. Don't 
forget to SYS there if you do. 

RUN STOP/RESTORE deactivates Surveyor. SYS to the 
appropriate address to reactivate it. 

Don't pull your hair out. But, if you do, maybe you can 
sell it for a toupee. -Buck Childress 

Salem, OR 

44 AHOY! 



•1 REM *** SURVEYOR C-64 *** 

•2 A=49152:PRINTCHR$(147) 

• 3 F0RJ=AT0A+95 : READB : POKEJ , B : X=X+B : NEXTJ 

•4 IFX014696THENPRINT" ERROR IN DATA [3"." 

]":END 
•5 C=INT(A/256):D=(A-(C*256))+13:POKEA+l, 

D:P0KE.\+3,C 
•6 PRINT"DATA OK * SYS"A"TO ACTIVATE! 3"." 

]":END 
•7 DATA169, 13, 162, 192, 120, 141, 143. 2. 142,1 

44,2,88 
•8 DATA96, 173, 141, 2, 166, 254, 133, 254, 201, 5 

,208,69 
•9 DATA228, 254, 240, 65, 169, 1,133, 204, 165, 2 

11,133,252 
•10 DATA165,214, 133, 253, 165,209, 166,210,2 

4,101,252,144 
•11 DATAl, 232, 134, 251, 170, 165, 251, 32, 205, 

189,169,42 
•12 DATA32, 210, 255, 165, 243, 166, 244, 24, 101 

252 144,1 
•13 DATA232, 134, 251. 170, 165, 251, 32, 205, 18 

9,166,253,164 
•14 DATA252,24,32, 240,255, 169,0, 133,207, 7 

6,72,235 

PASTiR CHARACTERS IN BASIC 7.0 

The follcwing program redefines the character set in only 
two seconds. A FOR/NEXT loop would take 32 seconds. 

Lines 50 and 60 move the character ROM into the bit 
map screen. The monitor is called via a function key. 

Lines 80 through IIO give you underlined letters. To ac- 
cess them, press the letter keys with the logo key. The ef- 
fect is much better if you use capitals in line 80. 

The next 12 lines are for simple animation. Circles are 
drawn on one character then copied to the space character. 

-James Glaser 
Bumey, CA 

•10 COLOR 0,1: COLOR 1,4: COLOR 4,1 

•20 GRAPHIC 1,1: GRAPHIC 0,1: BANK 15 

•30 PRINT " [HOME] [HOME] [3"[D0WN]"]"TAB(15 

)"W0RKING[3"."]" 
•40 WINDOW 0,13,39,24,1 
•50 KEY 1," [CLEAR ][ BLACK ]M0NIT0R"+CHR$( 13 

)+"T ED800 ED[3"F"] E3800"+CHR$(13)-l-"X"-»- 

CHR$(13)+"GOT070"+CHR$(13) 
•60 POKE 209, PEEK (4096): POKE 210,0:END 
•70 KEY 1, "GRAPHIC": GRAPHIC 2, 0,13: COLOR 

5,14 

•80 TEXT$="<->.* [s K][s I][s T]=[s G]-l-[s 
M]!"+CHR$(34)+"[s N][s Q][s D][s Z][s S 

][s P][s A][s E][s R][s W][s H][s J][s L 

][s Y][s U][s 0]?[s F][s C][s X][s V][s 

B]" 

•90 POKE 4588, 216: CHAR, 19, 21, TEXT$ 
•100 FOR A=9I TO 127:R=14343-hA*8 

Coitlinuecl on page 82 
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peed. Raw, blinding, power-user speed. Amigas 
running anywhere ftom 7.14 megahertz to over 
14 MHz with turbo boards sharpening the cut- 
ting edge. 

How can the poor C-64 keep up at a piddley 1 MHz? 
Or even the C-128 in last mode at a dawdling 2 MHz? 
But obviously they do keep up, as is evidenced by some 
of the fine and very powerful software available. 

For a given computer, speed can be significantly en- 
hanced hy two things: programmer's tricks and program- 
mer's tools. Tricks come with experience. Tools are equal- 
ly available to all of us— often off the shelf. 

One key tool is the language in which we each choose 
to program. Several of you have asked just how fast 
COMAL is. Forget for the moment how its structure en- 
hances prograrrmiing and debugging. If COMAL is not 
at least as fast as other languages, then it's not what some 
of you power programmers are looking for. 

Enter Herbert Denaci, engineer and speed aficiona- 
do. While i was doing some of the background work on 
this column, he and I exchanged a fi^w letters. Denaci 
has done exactly the kind of speed testing that will be 
useful in proving COMAL's value. So well explore his 
benchmarks, as well as a few others, and you can judge 
COMAL for yourself 

Denaci^ Benchmarks- C-64 or C-128 at 1 MHz 

(Scores are ranked against BASIC 2.0. A score of .50 means the 
benchmark ran In half the time BASIC took.) 





Sieve 


Trig 


Flight 


Ahrs 


COMAL ai4 


.74 


1.00 


.69 


.97 


COMAL 2J) 


.30 


.98 


54 


,22 


BASIC 2.0 


1.00 


1.00 


1.00 


1.00 


BASIC 7JI 


1.46 


1.08 


1.28 


1.09 


Pascal 










(Oxfonir 


.14 


1.05 


.67 


55 


PROMAL* 


.06 


1.13 


.86 


1.45 



"The "ruif times for Pascal and PROft/IAL do not include the sep- 
arate step of compiling the source code. Compile times vary from 
7 to 94 seconds on these benchmarks, which run in anywhere 
from Vz to 5 minutes. 

Now no benchmark gives an absolutely true picture 



of a language's speed. What you want as a programmer 
is the most speed for the particular program you're writ- 
ing right now. The usei\il speed of the language will 
change as the demands of your program vary. All a bench- 
mark can do is provide a comparison based on the fea- 
tures it happens to exploit. 

Let's look first at the Sieve of Eratosthenes. It has been 
used as a programming algorithm since at least 1969, A!! 
it does is find prime numbers. Sieve is generally used 
to test a high-level language's performance in Boolean 
algebra. It also gives an indication of the language's abil- 
ities in array handling, memory references, and structured 
control statements. 

The heart of Denaci's translation of Sieve, into 
COMAL 0.14, is: 



0130 


FOR I#:=0 TO SI# DO 


0140 


IF FLAGS* (I#) THEN 


0150 


PRIME#:=I#+I#+3 


0160 


K#:=I#+PRIME# 


0170 


WHILE U<=SU DO 


0180 


FLAGS#(K#):=FALSE 


0190 


K#:+PRIME# 


0200 


ENDWHILE 


0210 


C0UNT#:+1 


0220 


ENDIF 


0230 ENDFOR I# 



Sieve has a lot of calculations to perform. Writing it 
this way allows it to be a real screamer because: 1) it 
doesn't use division, 2) it uses prior knowledge about 
numbers that cannot be primes (even numbers), 3) it al- 
ready knows that 0, 1,2, and 3 are the first four primes, 
and 4) it calculates primes as the value of the variable 
PRIME#, or twice the current array index plus three. 

To stretch out the test a little, a major loop is run 10 
times with these additional lines: 

0080 DIM FLAGS#(0:SI#) 

0090 FOR ITER#:=1 TO ML# DO 

0100 FOR I#:=0 TO SI# DO FLAGS* (I#):=TR 

UE 

OHO PRINT "LOOP ",ITER# 

0120 COUNT* :=0 
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0240 ENDFOR ITER# 

0250 PRINT "COUNT=";COUNT# 



OenacHs Benchmarks - 


-C-128 ai 2 MHz 




(Scored against BASIC 2.0) 






Siew 


Trig 


Right 


AhCs 


COMAL 0.14 


.73 


1.03 


.78 


.97 


COMAL 2Si 


.30 


1.00 


.60 


.22 


BASIC 2.0 


1.00 


1.00 


1.00 


1.00 


BASIC 7.0 


1.38 


1.21 


135 


1.04 


FORTRAN 










(Nevada)* 


- 


5.70 


2.84 


1,60 


"The run times for FORTRAN 


use the C-128's Z80 microprocessor 


and do not include ttie separate compile times. 





Denaci's calls his second benchmark Trig. It uses trig- 
onometry functions that are typical of those used in flight 
dynamics problems. The heart of this benchmark, in 
COMAL 0.14, is: 

0100 ITERATION :=0 

0110 A:=.l 

0120 B:=.2 

0130 FOR ITERATION :=1 TO 1000 DO 

0140 C:=SIN(A/B)*COS(A/B) 

0150 ENDFOR ITERATION 

The Trig benchmark is just a waimup for Denaci's real 
interest -the Flight Dynamics Simulation benchmark. He 



TICH NOTES 

1) The COMAL Users Group claims version 2.0 
is about twice as fast as 0.14. COMAL Today maga- 
zine #6, p. 17. 

2) AH the C'128 benchmarks were run in C-64 
mode. COMAL 0.14 won't load in C-128 mode and 
the COMAL 2.0 cartridge forces the C-128 into C-64 
mode on bootup. 

3) If you own a C-128, you can kick your computer 
into its fast speed while in the 64 mode. Normally 
the C-128 in 64 mode operates with a 1 MHz clock, 
but you can switch to the 2 MHz clock with POKE 
53296,3 and reset to I MHz with POKE 532%,0. In 
the taster speed, the C-128 screen will go blank and 
internal computer operations will click along at twice 
the normal speoi. (The corresponding hex address to 
53296 is $D030.) Ychi can elect to just blank (not erase) 
the screen and take the modest speed improvement 
by POKEing 53265 with a 3 (off) and then a (on). 

4) The Sieve beiKhmark has been written other ways 
using division. It runs dozens of times slower. The 
moral? If you're looking for speed, don't throw out 
high-level languages; look for better algorithms. High- 
level languages are generally considered to save time 

i in development and debugging. If you jusl have to have 
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wrote this 145-line benchmark to be representative of a 
guided missUe program used for design studies. It's not 
listed here for space reasons -not physical space, but the 
space that appeared between my ears when I attempted 
to decipher it. Suffice it to say that Flight contains plen- 
ty of arithmetic calculations as well as all the trigonom- 
etry you could hope for. 

Dropping back in time to another old benchmark, we 
find David Ahl's Simple benchmark from the January 
'84 issue of Creative Computing. Translated into COMAL 
0.14, the meat of this test looks like: 



0100 


R:=0 


Olio 


S:=0 


0120 


FOR N#:=l TO 100 DO 


0130 


A:=N# 


0140 


FOR I#:=l TO 10 DO 


0150 


A:=SQR(A) 


0160 


R:+RND(1) 


0170 


ENDFOR I# 


0180 


FOR I#:=l TO 10 DO 


0190 


A:=A*2 


0200 


R:+RND(1) 


0210 


ENDFOR U 


0220 


S:+A 



0230 ENDFOR N# 

This benchmark tests for mathematical accuracy by tak- 
ing the square root of A, then squaring the result and 
adding it to the variable S, Perfect accuracy would re- 
sult in S equaling 5050 at the end of 100 cycles through 



more speed in your finished program, try rewriting 
the most critical routines in assembly language. Even 
then, don't throw out that high-level code -it may be 
useful documentation in the fiiture, 

5) Ahl's benchmark is, like the others, designed to 
give a specific comparison of processing speed. How- 
ever, it also reports on the accuracy of the language 
and the computer at squaring the square root of a num- 
ber and coming up with exactly the original number. 
At the end of the completed benchmark, it subtracts 
the original number from the one calculated by the 
computer. Presumably the closer to zero the better. 
Here are some interesting "accuracy scores": 




COMAL (LM 
BASIC 2.0 



0.000298 
0.001041 



COMAL 2.8 
BASIC 7.0 



0000117 
0.001052 



6) No benchmark can be the sole criterion for you 
to use b judging a language. Sieve, for example, does 
not test features like recursion or sets, which are crit- 
ical to some programming tasks. And benchmarks to- 
tally feil to show ease of programming. As Denaci 
wrote, "In comparing the five languages, there is no 
doubt that COMAL is superior, it is user friendly! 
BASIC isn't as difficult as die "compiled" languages, 



the major loop. And the benchmark exercises the random 
(RND) function by adding a random number between 
and 1 to the variable R a total of 2000 times. That's 
10 times (line 140) plus 10 times (line 180) multiplied 
by 100 (line 120). The resulting value of R, based on 
probabilities, should be 1000, but the actual calculation 
doesn't mean much with the exception of testing execution 
speed. 





Ruperts "Benchmarks^ 




{Scored against BASIC 2.0) ''^H 




Addition Multiplication 




(1 MHz / 2 MHz) (1 MHz / 2 MHz) 


COMAL 0.14 


1.CF / 1.06 1.05 / 1.04 


COMAL 2.0 


.64 / .64 .77 / .77 


BASIC 2.0 


1.00/1.00 1.00/1.00 


BASIC 7J) 


1.42 / 1.39 1.29 / 1.26 



Next we'll borrow from the Rupert Report in the June 
1987 issue of Ahoy! that showed BASIC'S ability to per- 
form 1000 additions or multiplications. Dale's test, con- 
verted to COMAL 0.14, is: 

0100 A: =3. 21896543 

Olio B: =1.02 104539 

0120 POKE 160,0 

0130 POKE 161,0 

0140 POKE 162,0 

0150 FOR N:=l TO IVjO DO 

0160 A:=A+B // ++ A:=A*B 

0170 ENDFOR N 




<S^--l-i>^i. J^ 



but it has the limitation of only recognizing the first 
two letters in variable names. Using compilers makes 
it difficult and time consuming to troubleshoot and 
edit a program." 

7) If you choose to run these benchmarks yourself, 
you can get more accurate timing than is possible with 
a sweep-second hand or by counting one-thous-and- 
and-one. Use the computer's internal clock. If the lan- 
guage does not have a way to directly access the clock, 
like BASIC'S Tl$ or COMAL 2,0's TIME, then use 
zero-page memory locations 160-162 ($A0-$A2). 
POKE them with zeros just before the main body of 
the benchmark and calculate the time at the end with: 

PRINT (256*256*PEEK(160)-t-256*PEEK(161) 
+PEEK(162))/60 

8) For more reading on benchmarks, try: "Leaks 
Like a Sieve," Byie, 8/85, p. 33; "Benchmarks," Byte, 
8/85, pp. 132-3; Gilbrealh. J., "A High-Level Language 
Benchmark," fi>tf-, 9/81, pp. 180-198; Knuth, D., The 
ARt of Computer Programming Vol 2: Semi-Numeri- 
cal Algorithm. Reading MA; Addison-Wesiey, 1969; 
Ahl. D., "Creative Computing Benchmark," Creative 
Computing, 1/84, p, 5. 



0180 PRINT (256*256*PEEK(160)4-256*PEEK(1 

61)+PEEK(162))/60, 

0190 PRINT " SECONDS" 

Finally, let's return to Son of Sieve and T\\ get around 
to answering Robert Boomers' question about COMAL's 
speed. He sent the following BASIC program that com- 
putes the first 1000 prime numbers. 

10 TI$="O00OO0" : DIMY%(8000) :P=1 :C=0 

20 PRINTP , : C=C+1 : IFC= 1000THEN50 

30 P=P+1:IFY%(P)=1THEN30 

40 F0RX=PT08000STEPP : Y%( X)=l : NEXT : GOT020 

50 PRINT :PRINTTI/60 

Translated into COMAL 2.0. Boomers' benchmark reads: 



10 TIME 


— _^-^- 


20 DIM y#(8000) 


. ----- 


30 p:=l; c:=rj 




40 REPEAT 




50 PRINT p; 




60 c:=c+l 




70 REPEAT 




80 p:=p+l 




90 UNTIL y#(p)<>l 


100 FOR x:=p to 


8000 STEP p do 


110 y#(x)=l 




120 ENDFOR x 




130 UNTIL c=1000 




140 PRINT TIME/60 





Boomers sent in times for BASIC 7.0 (1 MHz) and 
Abacus BASIC (MHz unknown), to which Tve added 
a few: 



BASIC 7.0 
BASIC 2.0 
COMAL 0.14* 
COMAL 2J) 



Son of Sieve 

1 MHz 

266 seconds 

209 seconds 

197 seconds 

99 seconds 



2 MHz 

127 seconds 

102 seconds 

95 seconds 

48 seconds 



*COMAL 0.14 is short on progrann memory (under 10K), so times 
are estimated based on a benchmark to find the first 725 primes. 
"This "run" time does not include the extra step of compiling 
the program. 



So, what do all these numbers mean? You're free to 
draw your own conclusions. To me they say that COMAL 
0.14 is often an improvement over BASIC (in speed, that 
is; in other ways, its always an improvement). And 
COMAL 2.0, depending on your programming applica- 
tion, can have your C-64 running at C-128 "turbo" speeds. 
You're free to draw your own conclusions. Let me know, 
what they are at P.O. Box 1544, Tallahassee, FL 32302. D 
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The Ultimate 3-D Adventure for the C-64 

By CI«v«laiMl KL Bkikmiier* 



t the &rthest comer of the earth, beyond the 
barren >!VBSteJand, lies the linnb, abode cf the 
hideously evil Demon King and the hordes 
i of darkness. The Demon's greatest treasure 
is the Alchemy Stone, an artifect fixim the ancient world 
that transmutes matter itself. 

Your task is to retrieve the Alcheiny Stone (along with 
all the treasure you can gather) from the nether r^ons and 
escape from the Tomb of Horror into the light of d^. 

This is the thind (and final) entry in n^ trilogy of 3-D 
gannes. It evolved out of Crypt of Fear (Feb. '88 Ahoy!), 
which in turn was inspired by Vbult of Terror (Oct. '86 
Ahoy!). I like to think Fve outdone myself, but you will 
ultinoalely be the judge of that. 




LANCe 



J ' \ 



This game is a real-time three-dimensional dungeon ad- 
venture that utilizes page-flipping animation, multiple spiite 
shq)e8, puU-down windows with jcystickKxmtrolled nsenus, 
and thirteen different creatures. It has three separate lev- 
els, five different kinds of traps, nine different types of wea- 
pons, five types of armor, and diirty individual objects that 
can be held, examined, or used in some way. It also fea- 
tures high quality graphics in color, thanks to extended 
background mode. The game has complex algorithms for 
combat, taking into account the type of creature you are 
fighting, the type of annor you have on, what type and qual- 
ity weapon you are u^ag, and how strong you are as a filler. 

In onler to squeeze this program into a measly 68 blocks 
on disk, I had to throw all frills to the wind. Although it 
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COHPftSS 
SCROLL 
STEEL KOOK 
PINTS OF ELIXIR 
COIL Of ROPl 



you HAVE 1 HITHRIL RING. 
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originally had an attractive title screen and a redefined char- 
acter font, I had to take these out because of space limita- 
tions. In order to assure that the program qudity did not 
suffer one iota, I also had to keep the sound effects to a 
niinim iim. I doubt if tfaese deletions will be missed. (Ed, 
note: the July Ahoy! Disk contains an expanded version 
of Tomb of HonT)r, complete with redefined graphics and 
enhanced title sen en. See page 52 for ordering ir^rmation, ) 
The program is entirely joystick operated. You will nev- 
er have to touch the keyboard after typing RUN. All com- 
mands are entered through a convenient syston of puU-down 
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THREE WAYS TO SUBSCRIBE TO 



COMMODOnE I 



L^lH^ 



ite^ 



i\migaL£er 



M!^ 



i\niigaLfser 






is^ 



iymigali^ 



'scr 



Any way you stack it up, Ahoy! (for 
Commodore 64 and 128 users) and 
Ahoyf's AmigaUser offer the best val- 
ue in news, reviews, features, and 
programs for the home computerist. 

Use the postpaid card bound be- 
tween pages 50 and 51, or the cou- 
pon below, to order 4 or 8 issues of 
Ahoyl's AmigaUser (pubhshed quar- 
terly), 12 or 24 issues of /4A<7y/ (pub- 
lished 8 times a year), or one or two 
fiill years of both magazines (4 issues 
of Ahoyl's AmigaUser and 8 issues of 
Ahoy!) —am at substantial savings over 
the cover price! 



and 
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D 4 issues df Ahoyf's AmigaUser for $&iOO ($KM)0 Canada and elsewhere) 
D 8 issues oi Ahoyl's AmigaUser for $]5jOO ($19j00 Canada and elsewhere) 
D 8 issues of Ahayl and 4 issues of Ahoyl's AmigaUser for $23jOO 

($3(100 Canada and elsewhere) 
n 16 issues of Ahoy! and 8 issues of Ahay!'s AmigaUser for $44i)0 

($55i)0 Canada and elsewhere) 
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45 West 34th Street-Suite 500, New \brk, NY 10001 
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menus that erase themselves after use. The commands are 
simple and straightforward, requiring very little explanation. 

To.move forward in the dungeon, push the joystick for- 
ward. The word ''MOVE!" will appear at the bottom of the 
screen, there will be a slight pause, and you will be stand- 
ing one block forward from where you were. To turn left, 
move the joystick left. To turn right, move the joystick right. 
To move back, pull the joystick back. 

If the block you are .standing in has anything in it, the 
bottom line of the screen announces it at the left. If there 
is a monster in the block with you, the bonom line tells 
you at the fer right. 

To access the main menu, >wu must be standing in a block 
not occupied by a monster. To pull the menu down, push 
the fire button and simultaneously pull back on the joy- 
stick. The menu appears in blue on the screen, with a se- 
lection of thirteen commands to choose from. No creature 
can attack while you're in die menu. 

You can move from one selection to another by moving 
the highlighted choice in white with the joystick. Push the 
fire button to select. 

The thirteen commands in the main menu are TAKE, 
DROP, LEFT HAND, RIGHT HAND, ARMOR, AS- 
CEND, DESCEND. EXAMINE, INCANT, QUAFF. 
SEARCH. INVENTORY, and EXIT MENU. The last eras- 
es the main menu window and returns you to real time ad- 
venture in the dungeon. Otherwise, you can push the fire 
button whenever you are finished reading a message or look- 
ing at a sub-menu display window, in order to close it and 
return to the main menu. 

TAKE and DROP allow you to pick up and dispose of 
objects for your inventory. TAKE automatically picks up 
whatever is in the block with you, providing you do not 
already have one. DROP allows you to select from one of 
the four classes of objects you can carrv, which read on 
the sub-menu as WEAPON. ARMOR, SPECIFIC ITEM, 
and TREASURE. The last entry is EXIT MENU, in case 
you change your mind and need to escape from the 
sub-menu. 

LEFT HAND allows you to locate a weapon from your 
inventory and place it in your left hand, your fighting ap- 
pendage. RIGHT HAND allows you to hold an object from 
the SPECIFIC ITEMS menu of your possessions. ARMOR 
permits you to select what you will be wearing. Remem- 
ber, if you have not selected it from the menu, you are empty 
handed, no matter what you may be carrying. It is possi- 
ble to be beaten to death by a flying bat if you have a ba- 
zooka in your inventory but have not placed it in your left 
hand so diat you can fight with it. 

These commands are very versatile, and many of them 
are interrelated. You must be holding the compass, for in- 
stance, in order to know what direction you are facing. 
■ ASCEND and DESCEND allow you to do just that, if 
you come across a shaft. Youll need a rope and a steel 
grappling hook before you can climb up or down. 

EXAMINE is also a very versatile command, which you 
use to look closely at an object in the inventory. You can 
compare weapons and armor and see which is of better qual- 
ity. For example, although common sense might dictate that 
a hand axe would be a better weapon than a dagger, a dag- 
ger of excellent workmanship would probably be superior 



to a hand axe of mediocre or common workmanship. It is 
left to the discretion of the adventurer. Other objects can 
also be examined, with various results. I'd like to leave se- 
crets for the plE^er to discover, rather than spoil the fun. 

Anything that can be held in die right hand can be IN- 
CANTed. which means calling upon its mystical or arcane 
properties. Don't expect much fh)m INCANTmg a com- 
pass, but you might try INCANTmg suspicious items like 
the mithril ring (assuming you are in the right locations). 
INCANT has different effects, depending on the artifact. 

QUAFF means to take a swallow of healing elixir, which 
you carry in one pint servings. It gives you strength for 
battle and may save you life at an opportune time. 

SEARCH looks for traps four blocks forward of your cur- 
rent location. Use this command frequently, or you'll find 
yourself falling into spiked pits, getting impaled on spears, 
and becoming tangled in tripwires. Your adventure will be 
cut short quickly if you are not cautious. 

INVENTORY prints out four windows displaying every- 
thing you have. 

Remember, your long-term goal in the Tomb of Horror 
is to acquire the Alchemy Stone, and all the options on the 
menu can assist you toward this end one way or another. 

Once you have obtained the Alchemy Stone, return to 
the surface world by ASCENDing through the shaft on the 
first level in the far northwest comer, and win the game. 

Fm certain the game will provide you with hour after hour 
of entertainment. The quickest game I've played success- 
fully required 45 minutes to get the Stone and return to 
the upper level. 

The whole window system used in Tbmh of Horror would 
not be possible without the use of Shawn K. Smith's clever 
memory move command ftx)m the June '87 Tips Ahoy!, 
which uses the built-in ROM routines to stash and save text 
and color information in a buffer above BASIC memory 
set aside for the purpose. My thanks to Shawn for the use 
of his short ML tip. 

The game is in two parts; a BASIC section and a binary 
file. Be certain that the Flankspeed file is named correctly 
so diat die main program can load it into memory. 

Tomb of Horror contains numerous shifted spaces which 
must be typed in correctly, because the program uses ex- 
tended background mode and requires shifted characters 
to generate different colors. Be especially careful when 
typing in the game. 

Giving credit where credit is due, Fd like to pay tribute 
to the game Dungeons ofDaggorath for the Tandy TRS-80 
as the driving force that compelled me to create my own 
3-D games for the C-64. Ever since I saw this game back 
in the summer of 1985, I've been striving to create a 3-D 
game as good or better. 

If you think I succeeded, or failed miserably, please let 
me know. I sincerely enjoy reading mail, both critical and 
flattering, and would like to hear what all Ahoy! readers 
think of Tomb of Horror, or any other games Fve created 
in the past. Hearing the voice of the readers gives direc- 
tion to my efforts. If you would really tike to see "just one 
more" 3-D game, or hope Fll never waste so much maga- 
zine space again, let me know, c/o Ahoy! You might see 
one of your suggestions incorporated into a game in the 
fiiture! D SEE PROGRAM LISTING ON PAGE 72 
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Continued from page 23 
an aircraft carrier! Better still. Jet in- 
terfaces with the entire library- of FS 
Scenery Disks (as does this new pro- 
gram), so computer pilots can wage 
contemporary high-speed air combat 
over just about any city on Earth. 

Stealth Mission, written by Steve 
Setzler and "directed" by Bruce Art- 
wick, represents the latest wrinkle in 
the ongoing saga of the software Ica- 
rus. Unlike Jei, it does not contribute 
a quantum leap forward in terms of de- 
sign. Technologically, however, it push- 
es the Commodore 64/128 envelope 
well beyond the blue horizon, to a 
whole new level of animation and 
frame rates. 

The visual integrity in all cockpit 
displays is absolutely incredible. The 
program never freezes in order to load 
new data, but rolls smoothly with the 
exception of occasional color flip-flops. 

The emphasis here is not so much 
on the simulation as on the flight and 
combat elements. The fiict is, the air- 
craft being simulated here-F-19 Stealth 
Fighter, Navy F-14 Tomcat, and the ex- 
perimental forward-swept wing X-29- 
could probably be flown by chimpan- 
zees. These aircraft do everything but 
reproduce themselves. SubLOGIC 
made the design almost idiotproof. Sin- 
gle button commands allow the fight- 
ers to locate and rendezvous with a re- 
fueling plane. There's even an auto- 
landing feature. All this flight lacks is 
Coca-Cola in the cockpit. 

Stealth Mission offers eight scenar- 
ios, selected from an onscreen menu. 
These missions range from easy to in- 
termediate to advanced, and include a 
mountain conflict, a battle at sea, a 
marathon bomber scenario, and a visu- 
ally appealing mission in which the air 
combat occurs over a collection of an- 
cient ruins. 

A second screen allows the user to 
set difficulty (0-9). select an aircraft, 
and choose its armament (Sidewinder. 
Sparrow, and Maverick missiles, four 
kinds of bombs, AGM-84 Harpoon, 
air-to-air and air-to-ground Stealth mis- 
siles, and an M61 cannon). 

Instrumentation includes all the stan- 
dard items (HUD, air speed indicator, 
altimeter, fiiei level, thrust, clock, 
brake and landing gear status, altitude 
indicator, etc.). There are also naviga- 
tional aids ( ADF receiver and bearing 
indicator, VOR receiver and omnibear- 
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ing indicator, DME and ILS glide- 
slope needle) and weapons/defense 
controls (damage indicator, radar, tar- 
get-tracking computer, ECM. weapoas 
select, etc.). 

The controls will seem immediate- 
ly familiar to anyone who's ever used 
a flight simulator (or. heck, even a real 
jet): throttle, elevator, aileron controls, 
airbrakes, landing gear, etc. Stealth 
Mission also allows for joystick con- 
trol of flight operations. 

In addition to the standard FS/Jet op- 
tions (multiple viewpoints, zoom, con- 
trol tower view, spotter plane), this pro- 
gram adds a "missile's eye view" to in- 
timately track the killer projectiles as 
they zoom toward a computer-locked 
target. 

Is Stealth Mission exciting? Yes, but 
not as exciting as it should be. The 
problems are almost intrinsic to the 
crafts being simulated. They are easy 
to fly and the onboard computers sta- 
bilize them quickly when danger ap- 
proaches. As a result of all this con- 
venience, the player doesn't have much 
to do for long stretches of lime. The 
upside, of course, is that users are free 
to concentrate on combat. However, 
these air battles have a cold, somewhat 
antiseptic feel. Instead of simply lin- 
ing up a target in your sights and blast- 
ing away, the computer must be locked 
on before a weapon is discharged, and 
that won't happen until the target is 
within range. 

The weaponry is impressive as all 
getout. with a choice of 11 different 
missiles, bombs, and cannon, but the 
results are less than satisfying. 

With all the visual marvels Sub- 
LOGIC prcxluced for this game, it's a 
shame more time wasn't spent simula- 
ting the results of the warfare. Explo- 
sions are nothing special, from either 
a visual or audio perspective, and we 
aren't even treated to the sight of an en- 
emy aircraft crashing in flames! 

The overall package, however, is ex- 
cellent. The game comes with maps, 
extensive and well-written documenta- 
tion, and a quick-reference card. 
Stealth Mission is an incredible pro- 
gramming accomplishment that de- 
serves (and will doubtless have) the at- 
tention of anyone interested in the state 
of the combat flight simulation art. 

SubLOGIC Corp., 713 Edgebrook 
Dr., Champaign. IL 61820 (phone: 217- 
359-8482). " -Bill Kunkel 
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geoCALC 128 

Berkeley Softworks 
Commodore 128 
Disk; $69.95 

Berkeley has been bu^ evangelizing 
the Commodore world on the benefits 
of their Graphic Environment Operat- 
ing System (GEOS). ftut 2 of that mis- 
sion has been to provide a bevy of ap- 
plications which utilize the power of 
the icon. With that in mind they have 
released a series of C-128 products 
which take advantage of the machine's 
inherent advantages over the 64. 

One of those releases is geoCalc 128, 
the graphic interfece spreadsheet which 
accepts worksheets produced by its C- 
64 counterpart. This copy protected 
disk requires GEOS 128 version 1.2 or 
later, a 128, an 80 column RGBI mon- 
itor, a joystick or a mouse, and a disk 
drive (1541 or 1571). 

Optional equipment includes a print- 
er, a second disk drive, and a 1750 
RAM Expansion Unit (REU). Every- 
one understands the benefits of a print- 
er and a second disk drive -haidcopy 
and increased file efficiency -but the 
REU is another matter. With it, spread- 
sheets recalculate faster, and larger 
spreadsheets are possible; iherdbre less 
time is spent waiting. That's the whole 
reason for using computers in the first 
place. 

The Basics 

Though copy protected, the applica- 
tion provides a way to make backup 
copies, the actual work disks. As with 
most things GEOS it is usually best to 
stay with the routines provided on the 
disks, whether you're duplicating en- 
tire disks or merely copying files. 

gC allows a worksheet of up to 256 
rows by 112 columns for a cell capacity 
over 28,000. It provides 12 digit accur- 
acy for addition, subtraction, division, 
multiplication, and percentage calcula- 
tions, and 9 place accuracy for trigon- 
ometric, exponential, Ic^arithmic, and 
financial (present/future values, etc.) 
operations. Up to 200 characters can 
reside in a single cell. 

Almost half of the menu options 
have keyboard alternatives; the screen 
display is logical and well-executed. 
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Useful for light duty jobs at best. 
READER SERVICE NO. 177 

Cell widths can be changed from 3 to 
31 characters, with 12 being the defeult. 
Relative and absolute references are 
supported, as are named langes and the 
ability to copy, cut, clear, or paste data 
(and functions) within a sheet. 

Just over a dozen display formats are 
available ($0.0, 0.00, 0.0000. for exam- 
ple); and information can be imported 
or exported to other GEOS applications 
via the scrap function. Alphanumeric 
alignment functions include centering 
in a cell, and left or right justification. 
Character attributes can be displayed 
and printed as italic, bold, bold-italic, 
or plain. 

Advanced Features — Somewhat 

geoCalc 128 handles fimctions such 
as ATAN (arctangent), COS (cosine), 
LOG (logarithm), RAhfD (random), 
SIN (sine), SQKT (square root), and 
TAN (tangent), among others. These, 
and the other 16 functions, represent 
the best the program has to offer, math- 
ematically speaking. 

gC does make use of the 128's 
uniqueness— somewhat. The numeric 
keypad is supported; likewise, its EN- 
TER key functions the same as the RE- 
TURN key. The individual cut«)r keys 
work, but the function keys are sorely 
neglected. So is the NO SCROLL key 
and the HELP key. (There is no on- 
line help, and judging from the condi- 



tion of my manual, there should be.) 
The ability to access an REUs ex- 
tra memory is excellent, however, as 
are the numerous ways (five!) to move 
the cursor about the worksheet. 

Entire rows or columns can be selec- 
ted by clicking on the row or column's 
alphabetic or numeric label. That is, 
all the cells in column B can be high- 
lighted (ranged) by moving the cursor 
over the "B" and clicking the left mouse 
button. The same applies to numeric 
rows. 

Manual Amnesia 

The Dr. Jekyli/Mr. Hyde mix contin- 
ues as the manual covers both the 64 
and the 128, with 128-specific info 
noted in highlighted boxes. But all the 
screen illustrations, and there are plen- 
ty, are from the 128 version. 

Chapter 3 is a tutorial of sorts. Chap- 
ter 4 continues the process in greater 
depth until, in my manual aiQTvay, page 
4-6 is reached. That's where Chapter 
4 ends abruptly. Full explanations of 
the "advanced" functions and other bits 
of information are supposed to be on 
pages 4-7 to 4-41. give or take a page 
or two. (Supposed existence of the 
other pages was revealed by scanning 
the index for the whereabouts of infor- 
mation concerning the trigonometric 
functions.) 

An outright error is displayed in the 
screen graphic on page 4 in Chapter 
3. A call-out arrow points to the check- 
mark entry icon, calling it the text en- 
try cursor. The cursor is nowhere to 
be found, further confusing the issue 
and making it more difficult to deter- 
mine the true state of affeirs. 

Other Anomalies 

Some functions are only available via 
the keyboard, a strange turn of events 
considering the entire reason this pro- 
gram exists— a graphic interface with 
icons and pulldown menus. 

One such option is the cancel com- 
mand, usefiil to abort an incorrect pro- 
cedure or calculation; the other facili- 
tates marking large chunks of cells for 
range manipulations. Both are impor- 
tant by any standards. 

The feet that there are two data win- 
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dows available is nothing new either. 
Many spreadsheets have the ability to 
spHt a display into an active an an in- 
active window, and then scroll through 
the active one. gC only allows horizon- 
tal splits- that's like building half a 
house. 

To install geoCatc 128 with a 1571 
drive, the software resets it to act as 
a 1541. While the procedure is noted 
in the manual, the need for this kind 
of manipulation lends credence to the 
belief that gC 128 is nothing more than 
a warmed over gC for the 64. That 
would be okay if all of the 128's unique 
features were addressed, but they're not. 

The program is described as being 
"intelligent," a phrase usually reserved 
for spreadsheets which use a sparse 
memory matrix to recalculate only cells 
containing entries. This method produ- 
ces fester results; however, it is not sup- 
ported by geoCalc 128. Nowhere is the 
term "intelligent" properly described or 
explained. 

After making a big to-do about the 
high quality of the printed output, it 
seems strange that the Apple Laser- 



Writer is not supported. After all, sev- 
eral other GEOS products include driv- 
ers for this standard setting printer. 
Lack of a device driver for this high- 
end printer muddies the water over the 
true level of the program's "presenta- 
tion" quality printing. 

How Does it Add Up? 

geoCalc 128 is a fine concept, but 
it has very little mathematical muscle. 
It cannot import other spreadsheet files 
(beyond those from the C-64 geoCalc); 
it does not support truly advanced fea- 
tures and ftmctions (macros, condition- 
al searches, etc.); and the manual is er- 
roneous and incomplete. 

Its prime attraction is GEOS's graph- 
ic, intuitive interfece. This "window on 
the world" provides extreme ease of 
learning, a comfortable feeling if you're 
already femiliar with GC05 programs, 
and ease of use. 

Unfortunately, in this case, that is not 
enough. Mice, pulldown menus, and 
icons do not make a program; they are 
merely tools which drive or feed an ap- 
plication, The software must do some- 
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thing substantial, must provide a cost- 
effective solution to a need. In those 
regards. geoCalc 128 is not much more 
than a pretty face. At best, it is useful 
for light duty jobs. 

Berkeley Softworks, 2150 Shattuck 
Avenue, Berkeley, CA 94704 (phone: 
415-644-0883). -Ted Saiamone 

TISAR 128 -^^ 

CW Data Lobs uj^g 

Commodora 128 '^--- 

DiVk; $89.95 

The fa%\ thing you should understand 
about TISAR 128 is that TISAR is an 
acronym that stands for Total Informa- 
tion Storage And Retrieval. Having that 
as its name and its apparent goal, you'll 
probably guess that it is a database. 
More than that, however, it is a data- 
base that has been optimized for small 
business use —one that will create and 
print point-of-sale invoices, database 
records with monthly or yearly totals 
of accounts received and receivable, 
and a perpetual inventory based on 
sales. 

As such, it is one of the most power- 
fiil programs I've seen for the C-128, 
even though it will not have an audi- 
ence as laige as would be the case with 
a "free-form" relational database. 

And for those who may despair be- 
cause they've been told graphics are all 
but impossible in the C-128's 80-col- 
umn mode, we'll point out that TISAR 
128 uses them almost to a fault: sim- 
ple graphics, true, but eye-catching, as 
is their intent. 

Although it is possible to pick one 
or another section of TISAR 128 and 
use it exclusively, the heart of the sys- 
tem as designed is the database. Since 
we must use the Commodore 1571 disk 
drive with double-sided disks, it is pcB- 
sible to install the database program 
and up to 500 records on a single disk. 
(Almost necessary for efficiency, since 
TISAR supports only one drive.) 

Impending upon whether your busi- 
ness is sales/service or sales/market- 
ing, you'll pick the appropriate program 
for the job. TISAR 128 supplies you 
with two service disks and one mar- 
keting disk. With no ability to edit or 
customize database fields, it is impor- 
tant that variations are provided, but 
you may still have to bend your cur- 
rent record-keeping methods to fit. 

Fields provided are for name, ad- 
dress, phone, part number, remarks, 



An open letter to 

the readers of Ahoy 

Richard Olsen 

President: The Ennon Corporation 



My |}urpose in writing is to ask 
you to join me in shaping the 
future of the new and most unusual 
field in computer technology today: 
Artificial Intelligence. 

This incredible power and 
spectacular creative potential are 
available to you, for your computer 
right now. However, there is an 
alarming possibility that such 
amazing technology which you 
have every right to, may not be 
available to you other that through 
this offer. 

This is unfortunate but somewhat 
understandable due to the way 
technology is created. You see, only 
the business oriented corporation 
can finance research. It therefore is 
in a position to dictate immediate 
research goals. These goals are 
increasing profits through more 
efficient production. While valid, 
they are merely creative and do 
absolutely nothing to foster 
exploration in a new applications. The 
results: technology is never used to 
its fuljest potential. But what's worst 
of all is that these competitive 
corporations have absolutely no 
desire to share technology with 
each other, let alone with you. So, 
they don't. As a resuh, the 
infinitesimai amount of technology 
that finally trickles down to you is: 

A. So expensive you arc pro- 

hibited from procurring it 

B. Shamefully inferior to the 

real thing 
remember..you can buy high-tech 
consumer goods, but never the 
technology that creates it. 

This same situtation confronts 
you in the new Artificial Intelligence 
field, but with a difference: 
There is no true Artificial 
Intelligence for the home computer 
user! The few programs claiming to 
be Artificial Intelligence are really 
simulators. The are not the real 
thing. Possessing a mere token of 
the power and versatility, simulators 
are clearly not worth their 
expensive price. 

I have tried repeatedly to 
convince my colleagues that it is in 
their best interest to release genuine 
Artificial Intelligence to the general 
public. The refinement, modification 
and adaptation as individuals create 
new applications would improve 
Artificial Intelligence tremendously. 



This would benefit everyone in the 
long run. 

] have met with little success. 
Apparently, it seems that immediate 
corporate profit is more important 
than sharing technology with the 
public. Therefore, the Ennon 
Corporation stands alone in offering 
superior Artificial Intelligence 
programming directly to the home 
computer enthusiast. 

Announcing AN-83: 
The "Thinking" Program 

Believe me when 1 say AN-83 is 
the real thing. It is a true "thinking" 
program that receives an initial 
"knowledge base" from a data file 
read when AN-83 is started. Using 
inductive and deductive logical 
analysis, this amazing program 
deduces everything from that data 
and adds it to its memory. 
Conversing with you, AN-83 adds 
and combines with facts already 
known. It generates new 
conclusions not explicitly contained 
in its original knowledge base — just 
like your own thinking process! The 
result: it knows considerably more 
than the specific facts given to it. 

AN-83 can also think about 
anything. It is virtually unlimited in 
its application. Think of your 
possibilities. The potential is 
limitless. In the right hands, AN-83 
would revolutionize the adventure, 
strategy and other smart game- 
playing programs to say nothing of 
classic arcade games. On the other 
hand, AN-83 could be one of the 
most powerful business analysts 
available to the home computer, 

FREE SOFTWARE 

In addition, you will be receiving 
free, Eliza-the most amazing 
conversational A.I. program to dale. 
Run this for your friends and jaws 
will drop with amazement. Eliza's 
responses are so human, it's 
uncanny. An entertaining program, 
Eliza Will answer once and for all 
the question: What can your 
computer do? 

How to Leam 
Artificial Intelligence 

You can be creative. Experiment 
and modify to fit your personal use 
because AN-83 and Eliza both 
possess source code in basic, the 
most popular easy to use language 



for the micro. Their extensive, easy 
to understand commands walk you 
through the source code. 
step by step. It's suprisingiy simple. 
Even the beginner can understand 
the "How and Why of A.I." 
A Fantastic Savings 

The real profit to Ennon 
Corporation will be your 
participation in the future of 
Artificial Intelligence. Therefore, 1 
am pleased to say nobody wilt miss 
this chance because they could not 
afford it. AN-83 is priced to cover 
just a fraction of its research and 
developmental costs. 

The "Thinking" Program AN-83 is 
just $23.57. What's more, the 
astounding Eliza is yours, absolutely 
free. 

I guess it's obvious that I want 
you to participate in the future of 
Artificial Intelligence. Forgive my 
excitement and enthusiasm but I 
just know you are going to be very 
happy and impressed that such 
things could be done with your 
computer. You just won't believe it. 
Please take this opportunity now. 
Simply fill out your coupon below 
and mail today. Don't miss out. It's 
such a wonderful future of 
discovery and excitement that 
awaits you. 

With the very best of wishes. 



Richard Olsen 

n Please send me the 
"Thinking" Program AN— 83 
for only S23.57. 
In addition, I will receive 
absolutely FREE Eliza - the 
most impressive conversational 
Artificial Intelligence program to 
date 

Available <n disk only. 

For use with ihe C0MM01X)RE 64 
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THE ENNON CORPORATION 

1718 Connecticut Ave. N.W., Suite 410 
Washington. DC. 20009 

Canadian orden mus< Ix in U.S. dollars. 
COMMODORE 64 is a registered iradeTnark. 
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Keep Your 
Collection Looking 
Shipshape with^ 

Binders 

Don't be caughl ut 
sea ihe next time >xhi 
need valuable pro- 
gramming informa- 
tion from a hack is- 
sue lit Ahoy! Our official binders turn a 
year's worth of Ahny! into a textbook on 
CommtxJore compuiingi These quality- 
constructed binders use metal rods to 
hold each magazine individually, allow- 
ing easy reference to any issue without 
removal. Sporting a na\7 blue casing 
with a gold Ahoy! logo imprinted on the 
spine, these binders wilt be the pride of 
your computer bookshelf. 

To order, send SI2.45 (US funds) for 
each binder desired to: 
Ahoy! Binders 

45 West 34th Street- Suite 500 
New York. NY tOOOl 

(Outvidc Ciintinenial tJS add 12.50 per binder Al- 
low <) 11! 6 w«ck.t for delivery. ) 




estimated price, deposit, and COD. If, 
for example, an item is purchased for 
$500.00 and a deposit of $100.00 is 
made, the larger amount is entered as 
Estimate. COD entries occur only 
when the balance is received. In this 
way, TISAR allows you to see at a 
glance the amount of money received 
for a particular period (month or year) 
as well as money owed you for that 
same period. 

It does this through one of the many 
search features - records can be 
searched on any field and printed or 
displayed. Additionally, diere is a 
cross-search feature which allows sorts 
on multiple fields. As an example, if 
you wanted to know how many people 
named Smith had bought widgets dur- 
ing the month of March, you could. 

In screen displays, TISAR wUl pre- 
sent the records in a scrolling form 
with outstanding amounts highlighted 
in red, or as a bar chart in which the 
amounts received will help you to get 
a handle on the month-to-month ups 
and downs of your business. 

Unfortunately for its stated use as a 
point-of-sale invoicing system, a data- 
base record must be created before an 
invoice can be filled out. While this 
would be fine if all customers were re- 
peat customers— and thus a database 
record on each already existed— I feel 
that here the long process would slow 
things to the point that you'd be losing 
customers. As an alternative, there 
might be some value in using TISAR 
as a "back-room entry" system, where 
the true accounting is done after the 
sale and the invoice would be mailed 
to the customer simply as a confirma- 
tion of the transaction. 

In beginning an invoice, you would 
first probably choose to customize it 
by having the printed copy show your 
business name, address, and phone 
number. As is the case with each of its 
many routines, TISAR wiU prompt you 
for each separate entry, and many times 
will do this by creating a flashing win- 
dow on the screen. 

Following this is a section for print- 
ing your company's guarantee or any 
other message you may need to impart: 
"No refunds after ten days," "Repairs 
left over thirty days," etc. 

The invoice form itself will depend 
upon whether your business is sales 
and marketing or sales and service. As 
it does with the databases, TISAR 128 



REVIEWS 



provides a different invoice for each 
type of business. When dealing with 
invoice— as opposed to database rec- 
ords—it is necessary to have several 
formatted disks on hand. Each disk will 
hold 125 invoice records, and this in 
spite of the fact that they are double- 
sided disks formatted in the 1571 drive. 

At the point of sale, enter the cus- 
tomer name; quantity, part number; de- 
scription of goods or services; price 
per unit; sales tax rate (or tax exempt); 
and the amount of deposit or p^Tnent. 
All this is in answer to screen prompte, 
and fields that do not apply can be 
avoided by entering "0". Once all en- 
tries have been made, the invoice, com- 
plete with subtotal, total, deposit, and 
balance will be printed to the screen 
and can be sent to your printer, where 
the heading and guarantee messages 
will also be printed. 

The third part of the system is called 
nSAR ICM- Inventory Control Mod- 
ule. With this, you can store records 
of up to 1000 individual items on a 
disk, and there are fields for adding to 
stock as new merchandise is received 
or deleted from stock as items are sold. 

To accomplish the latter, ICM will 
process the invoice data disks, reading 
the items sold and subtracting them 
from inventory, allowing you a much 
better feel for the pulse of your busi- 
ness-allowing you to know what items 
are selling, when they are selling, and 
the rate of movement. In addition, each 
item can be keyed to a reorder point: 
when only 50 widgets are left in inven- 
tory, it is time to order more. 

With selective display and printing 
options, the ICM module will allow 
you a look at all inventory items or only 
those that have reached the reorder 
point. 

There is no doubt that TISAR 128cm 
be of value to small businesses in help- 
ing them to gain better control of the 
record-keeping and inventory process- 
es, but it does have shortcomings. 

First, with the number of disks and 
programs involved, it should have been 
written for use on a hard disk or, at 
the very least, to support two disk 
drives. Second, it is a bit too cumber- 
some to be used as a point-of-sale sys- 
tem, though this could have been alle- 
viated by turning the program around. 
If the database were created from the 
invoice, it would be a much faster sys- 
Coniinued on page 81 
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W?OGI?AMMING CMAIJ J=Na=S 
By Dale Rupert 




ach month, we'll present several challenges de- 
signed to stimulate your synapses and toggle the 
bits in your cerebral random access memory. We 
invite you to send your solutions to: 

Commodores, c/o Ahoy'. 
P.O. Box 723 

Bethel. CI 06801 

We will print and discuss the cleverest, simplest, short- 
est, most interesting and/or most unusual solutions. Be sure 
to identify the name and number of the problems you are 
solving. Put your name and address on the listings as well. 
Show sample runs if possible. Briefly describe your solutions 
and tell what makes them unique or interesting, if th^ are. 
You must enclose a stamped, self-addressed envelope if you 
want any of your materials returned. Solutions received by 
the middle of the month shown on the magazine cover are 
most likely to be discussed, but you may send solutions 
and comments any time. Your original programming prob- 
lems, suggestions, and ideas are equally welcome. The best 
ones will become Commodares\ 



Pa9BUM #55-lf f 10 OIQt 

This problem vi:as submitted by Jim Speers (Niles, MI). 
Write the shortest program which accepts any integer from 
to 32767 and prints out the number of I's in its binary 
representation. The title of this problem comes from the 
more advanced challenge which is to accefrt any whole num- 
ber from to 65535 and print out the number of I's, signif- 
icant O's (ignore leading O's), and total number of SIGnifi- 
cant DIGits in its binary representation. (Jim thinks that 
this second challenge cannot be done in one line.) 

For example, if the user enters 65, the computer responds 
^'" for the first challenge, since the binary value of 65 is 
0100 0001 which contains two Is. For the second challenge, 
the computer responds '^, 5, 7" since there arc two I's, five 
non-leading O's, and seven significant digits. 



PROBUM #55'2: RAPID RANDOMIZER 

Try this one from Justin Smalley (Boulder, CO). Start 
with the following array definition: 



10 N=100 
I: NEXT 



DIM X(N): FOR 1=1 TO N: X(I)= 



Write the rest of the program which will rearrange this ar- 
ray in random order as quickly as possible. Add line 20 
to start the timer and line 40 to stop the timer and print 
the time required to shuffle the array. 

20 TO = TI 



40 PRINT TI-TO "JIFFIES" 
Start your solution at line 30. 



PROBUM #5S-3t tfflJOMBUD WORDS 

Eddie Byrd (Ste. Genevieve, MO) wants to see every pos- 
sible combination (or peimutation) of the letters of any five- 
or six-letter word entered by the user. He wants his com- 
puter to help solve those scrambled-word puzzles in the 
newspaper. Can you help? (Readers with a good collection 
of Ahoy! back issues may not have much trouble with this 
one.) 



PROBMM #55-41 POLAR GRAPHICS 

This one from Thomson Fung (San Diego, CA) should 
not be too difficuh if you have a C-128 or use Simon's BASIC 
on the C-64. Very simply, write a program to plot a graph 
of the equation 

R = 10*T*C0S(T)*SIN(T) 

in polar coordinates. Here R stands for the distance of each 
point from the origin. T represents the angle of a line from 
the origin to the given point. If you let T go from to 25,2 
in steps of 0.1, you will be rewarded with an interesting 
butterfly. 



First of all I must confess to a blunder regarding the 
discussion of Problem if 48-4: More Income in the April 
issue of Ahoy! The problem was the math classic where 
you are given the option of receiving $15(XI0 per year 
under one of two plans. Plan A gives a raise of $750 every 
six months. Plan B gives a raise of S3000 every year. 
The challenge was to write a program to display the an- 
nual and cumulative pay for the two plans. I chastised 
the readers for their confusion on this problem, since 
it seemed that most people misinterpreted it. 

Fred Simon (Lindenwold, NJ) sent me a letter stating 
that my readers were not the only ones confused. Al- 
though I disagree with Fred's interpretation of the prob- 
lem, it caused me to rethink the whole situation. Here 
(I think) is the proper answer to the problem. Plan A 
is better if you work for just one year: otherwise Plan 
B is better, fl originally said that Plan A was significantly 
better overall, contrary to common sense.) 

Analyze it this way. Every six months. Plan A increas- 
es your base annual salary (BAS) by $750. Your pay for 
any six month period is the current BAS divided by two. 
For example, your BAS for the first six months is clear- 
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ly $15000, and your six months' salary is S15000/2 or 
$7500. Everyone agrees on that. 

At the end of six months, your BAS goes up to $15750, 
so your pay for the second six months is $15750/2 or 
$7g75. Your total first-year earnings are S15375 ($7500 + 
$7875). After one yean your BAS is raised another $750 
to $16500. You earn S16500/2 ($8250) for the first six 
months of the second year. Then your BAS is raised to 
$17250, and you get $17250/2 ($8625) for the fourth six- 
month period. Your total over two years is $32250. 

With Plan B, your BAS is $15000 for the first year, 
and that is what you receive. Your BAS is raised to $18000 
which is your second year's salary. At the end of t\w) 
years, you have accumulated $33(X)0. Plan B income is 
ahead of Plan A income by the middle of the second year. 

Here is Fred's program adapted slightly to agree with 
this analysis. 

•1 REM ================================== 

•2 REM COMMODARES PROBLEM #48-1 : 
•3 REM MORE INCOME 

•10 PRINT"YEAR SALARY A TOTAL [3" "] SALARY 

B TOTAL" 
•20 BAS=150f/J: SA=BAS: SB=BAS: TA=0: TB=0 
•30 RA=750: RB=3000 
•AO FOR YEAR=1 TO 10 
•50 TA=TA+SA/2+(SA+RA)/2 
•60 TB=TB+SB 

•70 PRINT YEAR;TAB(5);"$"SA;"$";TA; 
•80 PRINT TAB(22);"$"SB;"$"TB 
•90 SA=SA+2*RA: SB=SB+RB: NEXT 

SA and SB are the BAS for Plan A and Plan B. TA and 
TB are the cumulative totals. 

An interesting aspect of this problem is that Plan A 
is a better plan if it offers semiannual raises of $15(X) 
as opposed to Plan B's annua! $3000 raise. RA in the 
program is the amount of Plan As raise. In fact, if you 
work for less than eight years, you would be better off 
with Plan A if it offered increases of only $1400 semi- 
annually. (Can anyone figure out the break even point, 
that is, the amount of Plan As increase which is equiv- 
alent to Plan B?) Experiment with the values and see what 
you come up with. Thanks to Fred for helping to straight- 
en this out. My apologies to anyone else whose solution 
was correct the first time around. 

Now on to new business. We will look at the best solu- 
tions to Commodares in the February issue of Ahoy! Prob- 
lem itSO-l: Phone Decode was submitted by Rat McCon- 
ville (Manassas F^k, VA). The user inputs a sequence 
of two-digit numbers representing letters encoded accord- 
ing to the telephone keypad. The computer decodes the 
numbers into letters. The first digit is the keypad num- 
ber. The second digit is the letter's position on that key. 
Since "D" is the first letter on the number 3 key. its code 
value is 31. "Q" and "Z" are not on die phone keypad, 
so they are assigned 77 and 99 respectively. 



Here is an interesting solution from Eddie Byrd (Ste. 
Genevieve, MO). 



•2 REM COMMODARES PROBLEM #50-1 : 

•3 REM PHONE DECODE 

•A REM SOLUTION BY 

•5 REM EDDIE BYRD 

•10 A$="[20" "]ABC[7" "]DEF[7" "]GHI[7" " 

IJKL" 
•20 A$=A$+"[7" "]MN0[7" "]PRS[3" "]Q[3" " 

]TUV[7" "]WXY[5" "]Z" 
•30 INPUT A(1),A(2),A(3) 
•AO FOR X=l TO 3 
•50 PRINT MID$(A$,A(X),1); 
•60 NEXT: PRINT: GOTO 30 

Be careAil typing the spaces in the definition of A$ since 
each character's position in AS matches its encoded value. 
"D" is the 31st character in A$, and "Z" is the 99th char- 
acter. The MID$ statement selects the chosen charac- 
ters, one at a time. Eddie's method handles invalid num- 
bers greater than zero by returning the space character. 
To avoid an Dlegal Quantity error if the user just press- 
es RETURN without entering a number, add this line: 

45 IF A(X)=0 THEN 60 

Don Wilkins (Burke, VA) transformed the numerical 
input into letters with the following formulas: 

L = 3*INT((N-20)/10) 

R = N-10*INT(N/10) 

C = L+R-((L+R)>16)+6*(R=7)+5*(R=9) 

N is the input number (20 < N < 100). The correspond- 
ing letter is printed with the statement 

PRINT CHR$,(64 + C) 

Don's program first checked for valid inputs. The last 
two addends in the formula for C correct for the letters 
"Q" and "Z". Recall that if (R=7) is true, its value is -1. 
Consequently 6*(R=7) subtracts six whenever R is sev- 
en. The middle term in the formula for C corrects all 
letters above "Q". 

Ernest Barkman (Athens, NY) suggested Problem 
if 50-2: Short Sound. The idea is to write the shortest pro- 
gram which will generate a continuous sound. Ernest's 
solution for the C-64 or the C-128 is shown in line 21 
of the following program: 



'1 REM 
■2 REM 
•3 REM 
■4 REM 
-5 REM 



COMMODARES PROBLEM #50-2 : 

SHORT SOUND 
SOLUTIONS BY 

ERNEST BARKMAN (LINE 21) 
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•6 REM ERNEST BARKMAN SR. (22 & 23)* 
•7 REM BOB RENAUD (24)* 
•8 REM KEVIN ESHBACH (25) 
•9 REM WALLACE LEEKER (26)* 
•10 REM ===== (* = C-128 ONLY) ======== 

■21 POKE 54296. RND(1)*9: RUN 

•22 PRINT CHR$(7): GOTO 22 

•23 A=RND(1)*7+65:PLAY CHR$(A):GOTO 23 

•24 PRINT" [CNTRL G]":RUN 24 

• 25 F0RI=54272T054296 : POKEI , RND( 1 )*255 : NE 
XT: RUN 25 

•26 SOUND 1,999,1: RUN 26 

Calling ihe output of this program a "sound" is about the 
most we can do. "Raspiness" might be a more appropriate 
term. Still, the program takes only 18 keystrokes (using 
abbreviations, ignoring spaces, and disregarding the line 
number and the RETURN at the end of the line), and 
Ernest's challenge was for brevity. Note that this program 
takes one more keystroke on the C-128 than on the C-64. 
Why? "P" SHIFT-0" is POKE on the C-64. but it is POT 
on the C-128. Use "PO SHIFT-K" on the C-128. 

This program randomly sets the volume of the sound 
generator. Why that should make a sound is not clear. 
Evidently this challenge generated some family rivalry. 
The solutions in lines 22 and 23 are from Ernest Bark- 
man Sr. (Orlando, FL), either Ernest's father or else quite 
a coincidence. 

Line 24 by Bob Renaud (Washington, MA) is an even 
shorter version of line 22. The CONTROL-G which 
beeps on the C-128 is entered in quote mode. Ignoring 
line numbers at the beginning and the end of the line, 
this program takes eight keystrokes using "?" for PRINT. 
This is undoubtedly the shortest program possible for solv- 
ing the problem. 

Not as short but producing more interesting sounds 
is line 25 from Kevin Eshbach (Sanatoga, PA). It POKEs 
random numbers into various SID registers. It runs on 
the C-64 or the C-128. \\^ace Leeker (Lemay, MO) sent 
the program in line 26. The sound is a pure lone with 
a slight discontinuity each time the program is rerun. 
Jim Speers sent a similar solution. 

To run any of these, just type RUN followed by the 
appropriate line number. RUN 25 executes Kevin's pro- 
gram, for example. 

Now for Problem 050-3: Tricky Index from Justin 
Snudley (Boulder, CO). The problem is to write line 30 
to replace line 29 in the following program so that line 
40 prints the index vertically in columns rather than in 
rows as line 29 does. The result is to have the same num- 
ber of rows and columns as produced by line 29. Justin 
mentioned that such a routine can be handy for printing 
out an alphabetized array. 

Jim Borden (Carlisle, PA) sent the following solution 
which takes advantage of the predefined variables. This 
allows his program to be easily modified for any num- 
ber of columns NC and any value of L. 



2 REM COMMODARES PROBLEM #50-3 : 

3 REM TRICKY INDEX 

4 REM SOLUTION BY 

5 REM JIM BORDEN 

10 L=17: NC=5: NR=INT(L/NC) 

20 FOR R=0 TO NR: K=R*NC: FOR C=l TO NC 

29 REM I=K+C: IF I>L THEN END :REM GIVEN 

30 E=l-(NC*NR-L):D=C-E:I=R+l+(C-l)*(NR-hl 
):IF D>-1 THEN I=I-D:IF R=NR AND C=E THE 
N END 

•40 PRINT I;: NEXT: PRINT: NEXT 

Jim mentioned that E in line 30 should have been de- 
fined in line 10, but the Conunodore allowed changes only 
to line 30. Do you see the disadvantage of defining E 
in line 30? In this program, E will be defined 18 times, 
even though its value never changes. \bu should not de- 
fine a variable inside a FOR-NEXT loop unless its val- 
ue changes within the loop. 

Jim Speers suggested modifying line 40 so the results 
are printed in uniformly spaced columns. He used this 
statement on the C-128: 



40 PRINT USING"##r;I;: NEXT: PRINT: NEXT 




RACE ANALYSIS SYSTEMS III 

PROVEN HANDICAPPING SOFTWARE FORTHE COMMODORE 
COMPUTER INCLUDESWINNINGMETHODSFOR HARNESS, 
THOROUGHBRED. AND GREYHOUND RACING. 
ONLY S49.95 

ALSOFT ' BOX 164 • DEPT. U * CLAIRTON. PA 15025 
PHONE (412) 233-4659 



RfKtar Service No. 163 
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Bob Renaud converted the values to be printed into strings 
"padded" with spaces to give uniform columns. 

Many readers had fun solving Problem §50-4: Simple 
Simon. The challenge was to write the simplest program 
possible to create the Simon number-sequence memory 
game. The computer briefly displays three numbers. The 
user must remember them and enter them in order. The 
computer then adds another number to the sequence and 
displays the four-number sequence briefly. The user must 
enter them in correct order. This process continues until 
the user fails to enter the list correctly. 

This brief program from Judy Groth (Brooklyn, NY) 
solves the problem in only three lines. 



COMMODARES PROBLEM #50-4 

SIMPLE SIMON 
SOLUTION BY 

JUDY GROTH 



•1 REM 
•2 REM 
•3 REM 
•4 REM 
•5 REM 
•6 REM =============================== 

•10 DEFFNR(S)=INT((RND(S)*9)+1):F0RX=1T03 

:A$=A$+MID$(STR$(FNR(1)),2,1):NEXT:PRINT 

A$ 
•20 F0RD=lT0X*3r/;:NEXT:PRINT" [CLEAR]" :: IN 

PUTB$:IFB$<>A$THENPRINT"SC0RE="((X-4)*10 

):END 
•30 X=X+1:A$=A$-hMID$(STR$(FNR(1)),2,1):PR 

INT" "A$::G0T020 

Notice Judy's user-defined function in line 10. This fijnc- 
tion generates random integers from 1 to 9. This program 
keeps score, awarding 10 points for each digit in the last 
number entered correctly. 

As if three lines were not short enough, Sharon Al- 
bers CWalters, MN) sent this nifty two-liner. 

1 REM =============================== 

2 REM COMMODARES PROBLEM #50-A 

3 RH^ SIMPLE SIMON 

4 REM SOLUTION BY 

5 REM SHARON ALBERS 

6 REM ================================= 

10 X$=X$+RIGHT$(STR$(INT(RND(0)*10)),1): 
0N-(LEN(X$)<3)G0T04:PRINT"[CLEAR][D0WN][ 

PROGRAiMS WAHTEm 

We're always in search of the best game, utility, and 
productivity programs available for the C-64, C-128, 
and Amiga. If you've written a program which fits that 
description, send it on disk, accompanied by printed 
documentation, a program printout, and a stamped, 
self-tiddressed envelope to: 

Ahoy! Program Submissions Dept. 

Ion International Inc. 

45 West 34th Street— Suite 500 

New York, NY 10001 
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DOWN ][ RIGHT]! RIGHT ]"X$ 

• 1 1 F0RT=1T0500 : NEXT : INPUT"[ CLEAR ] [ DOWN ] [ 
DOWN ] " ; 1$ : 0N-( X$=I$)G0T04 : PRINT" INGORREC 
T — "X$:END 

X$ holds the computer's number sequeiKe. The first state- 
ment in line 10 picks a random digit, converts it into a 
string, and strips away the leading space. Another inter- 
esting aspect of Sharon's program is her use of the ON- 
GOTO statements. These allow the equivalent of IF- 
THEN conditional statements to be executed while hav- 
ing other commands follow on the same line. This is a 
handy procedure for the C-64 which does not allow the 
ELSE statement. A nice feature of this program is the 
final PRINT statement which shows the actual number 
which the user missed. tSitf 

Some readers were careftil to empty the keyboard buff- 
er before accepting user input. This is to prevent cheat- 
ers from typing the numbers while th^ are displayed 
on the screen. (Of course, the real criminals would use 
pencil and paper.) 

POKE 208.0 clears the keyboard buffer on the C-128. 
Use POKE 198,0 for the C-64. 

The ultimate in brevity is this one-liner for the C-128 
from Charles Kluepfel (Bloomfield. NJ). 



1 REM = 


===^===== =========== ==:===rEs:s 




2 REM 


COMMODARES PROBLEM #50-4 




3 REM 


SIMPLE SIMON 




4 REM 


SOLUTION BY 




5 REM 


CHARLES KLUEPFEL 




6 REM = 





___— 



•10 A=RND(-TI):DO:A$="":DO:DO:A$=A$+CHR$( 
48+10*RND(l)):LOOP UNTIL LEN(A$)>2: PRINT 
" [ CLEAR ] '•A$ : SLEEPl : INPUT" [ CLEAR ] " ; B$ : LOO 
P WHILEA$=B$:PRINT"NO.IT IS":PRINTA$:GET 
KEYA$:LOOP 

Charles said that this illustrates the power of BASIC 7.0. 
Indeed it does. You may better understand the logic of 
the program if you rewrite it, indented with one state- 
ment per line. 

Hopefully you will enjoy improving your memory with 
these simple Simon solutions. Have fun working on this 
month's problems. Keep those solutions and suggestions 
coming. D 



Congratulations to the following readers who have nm ^^| 


been mentioned already 


this month: ^^1 


Necah Buyukdura 


Craig Morse (Minot, ND) ^^M 


(Ankara, Turkey) 


Jerrv Nichols ^^H 


Harlan Clusstnan 


Federico Osie (Loreto. Imly) ^^H 


(Wausau. WI) 


Myong Pack (Portland. OR) ^^M 


Oren Datton (El Paso, TX) 


DooBld F^lleerini ^^M 


Tameem Hallak 


(Arrovo Grande. CA) ^^M 


Terry Jemigan (Raleigh, NC) 


Roben Rispoli (Ridge, NY) ^^M 


Larry Louks (Freepon, TX) 


Mark Koschke ^^M 


Ron McManus (Lenore. ID) 


Andrew Rosenthal ^^^H 


Steve Morrison 


(Flushine. NY) ^H 


(Rirt Hueneme, CA) 
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Attention new Ahoyt readersl You must read the following information very carefully prior to typing 
in programs listed In Ahoyl Certain Commodore characters, commands, and strings of characters 
and commands will appear in a special format. Follow the instructions and listings guide on this page. 




n the following pages youll find several pro- 
grams that you can enter on your Commodore 
computer. But before doing so, read this entire 
page carefully. 
To insure clear reproductions, Afioy!'s program listings 
arc generated on a daisy wheel printer, incapable of print- 
ing the commands and graphic characters used in Commo- 
dore programs. These are therefore represented by various 
codes enclosed in braclcets [ ]. For example: the SHIFT 
CLR/HOME command is represented onscreen ty a heart 
2 . The code we use in our listings is [CLEAR]. The 
chart below lists all such codes which you'll encounter in 
oor listings, except for one other special case. 

The other special case is the COMMODORE and SHIFT 
characters. On die front of most keys are two symbols. The 
symbol on the left is obtained fcy pressing that key while 
holding down the COMMODORE key; the symbol on the 
right, by pressing that key while holding down the SHIFT 
key. COMMODORE and SHIFT character arc represented 
in our listings by a lower-case V or V followed by the 
symbol of die key you mu.st hit. COMMODORE J, for ex- 
ample, is represented by [c J], and SHIFT J by [s J]. 



Additionally, any character that occurs more than two 
times in a row will be displayed by a coded listing. For 
example, [3 "[LEFT]"] would be 3 CuRSoR left commands 
in a row, [5 "[s EP]1 would be 5 SHIFTed English Pounds, 
and so on. Multiple blank spaces will be noted in similar 
feshion: e.g., 22 spaces as [22 "1. 

Sometimes youll find a program line that's too long for 
the computer to accept (C-64 lines are a maximum of 80 
characters, or 2 screen lines long; C-128 lines, a maximum 
of 160 characters, 2 or 4 screen lines in 40 or 80 columns 
respectively). To enter the.se lines, refer to the BASIC Com- 
mand Abbreviations Appendix in your User Manual. 

On the next page youll firjd our Bug Repellent programs 
for the C-128 and C-64. The version for your machine will 
help you proofread programs after typing them. (Please note: 
the Bug Repellent line codes that follow each program line, 
in the whited-out area, should not be typed in. See instruc- 
tions preceding each program.) 

On the second page following you will find Flankspeed, 
our ML entry program, and instructions on its use. 

Call Ahoy! at 212-239-6089 with any problems (if busy 
or no answer after three rings, call 212-239-0855). 
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CunorLeft 


saii'T 


■^ t«SR — 


n 


[PURPLE] 


Purple 


CNTRL S 


i 


[RIGHT] 


Curwr Ri0il 




— CR-SR -- 


p 


[GREEN] 


GrKH 


CNTRL 6 


D 


1 [SS] 


.Shiried Spacr 


SHI»T 


Space 


I 


[BLUE] 


Blue 


CNTRL 7 


B 


[INSERT] 


Insert 


SHIin^ 


INST/DEI. 


■ 


[YELLOW] 


Velkm 


CNTRL » 


n 


[DEL] 


UeltM 




INCT/DEL 


D 


[Fl] 


Function 1 


FI 


I 


[RVSON] 


Rcivm On 


CNTRL 


» 


IS 


[F2] 


Function I 


SHIFT Fl 


a 


[RVSOFF] 


RmrsrOff 


CNTRL 


» 


I 


[F31 


FuiKtion J 


F3 


e 


[UPARROW] 


Up Amow 




t 


T 


[F4] 


Function 4 


SHHT F3 


B 


1 [BACK ARROW] 


Back Arrow 




- 


^ 


[F5] 


Function S 


FS 


n 


[PI] 


PI 




TT 


ir 


[F6] 


Fund km 6 


SHIFT FS 


B 


[EP] 


Engll'di FBuiid 




£ 


£ 


[F7] 
[F8] 


Function 7 
FtoiKthHiS 


F7 
SHIFT F7 


n 

■ 
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BUG REPELLENT FOR THE 64 & 128 By BUCK CHILDRESS 



Please note: the Bug Repellent programs listed here are for Ahoy! programs published from the May 1987 issue onwaid! For ol<ler 
programs, use the older version. 

T^'pe in, save, and run Bug Repellent. Youll be asked if you want automatic saves to take place. If so, you're prompted for the device, 
DISK (D) or TAPE (T). You then pick a starting file number, through 99. Next, you enter a name, up to 14 characters long. Al this 
point, Bug Repellent verifies your entries and gives you a chance to change them if you *ant. If no changes are needed, Bug Repellent 
activates itself. (Pressing RETURN without answering the prompts defaults to disk drive and begins your files with "OOBACKUP") 

Type NEW and begin entering an Ahoy! program. As you enter progmm lines and press RETURN, a Bug Repellent code appears 
at the top of your screen. If it doesn't match the code in the program listing, an error exists. Correct the line and the codes will match. 

If used, automatic saves take place every 15 minutes. When the RETURN key is pressed on a program line, the screen changes color 
to let you know that a save will begin in about three seconds. You may cancel the save by pressing the RUN STOP key. The file number 
increments after each save. It resets to 00 if 99 is surpassed. After saving, or cancelling, the screen returns to its original color and 
the timer resets for 15 minutes. 

When you've finished using Bug Repellent, deactivate it by typing 
SYS 49152 [RETURN] for the Commodore 64 or SYS 4864 [RE- 
TURN] for the Commodore 128. 



C-128 BUG REPELLENT 

"]":J 



C-64 BUG REPELLENT 

"Y'-.j 



K; PRINTCHR$(147)"LOADI.VG AND CHECKING THE &ATA[3" 

=49152 

20 FORB-f/rOl 1 : READA : IFA<rORA>255THO(40 

30 P0KEJ+B,A:X=X+A:NEXTB:READA:lFAoXTHEN50 

40 PRINT :PRI?rr"ERROR U DATA LIKE:"PEER(64)*256+PEEK(63) 

:ENO 

yj X-fJ:J=J+12:TFJ<49456THEK2r; 

dfi P0KE198.0:P0KE49456,0;A$="Y";BS=A$;C$-"D":D$="DISK":D 

-8!PRIS'TCHR$(147) 

70 [KPUT"DO YOU WANT AUTOMATIC SAVES {¥/N)";A$: PRINT: IFA 

$-"Y"T!iEN9<'j 

Bfj PRINT"NO AUTOMATIC SAVES[3"."J":GOT015rj 

90 P0KE49456.1:IPJPUT"DISK OR TAPE (D/T)";C$:IPC$<>"D"THE 

ND-1:I>$="TAPE" 

Vid POKE49457,0:D$-D$+" DRIVE": PRINT :INPUT"FILK KIMBER C 

0-99)" ;N 

110 N$=RIGHT${STR$(N),2):IKN<lOTHENN$=CHR$(48)+CHR$(N+48 

) 

1 20 FS=" BACKUP" : PRl NT : INPUT"FI LFJi AME" ; F$ : FS=N$+LEFT$ ( F$ , 

14):ULEH(F$) 

130 P0KE49458,L:F0RJ-1T0L:P0KE49458+J,ASC(MIDS(FS,J,1)): 

NEXTJ: PRINT 

140 PRINr'SAVIfJG DEVICE *♦ "DS:PRINT"STARTING WITH ** "F 

$ 

IVt PR INT; IN PUT" IS THIS CORRECT (r/N)*':B$:IFBS<>"¥"THEN6 



160 PWE770,131:P0KE771,l64:SyS49I52:END 

170 DATA169,79.32,210,255,162,38,16fj,192,204,3.3,15fj7 

W) DATA2r>8,l0,162,131,16fJ,164,169.7O,32,21O,255.44.1615 

19ri DATA169, 78, 32, 210, 255, 142, 2, 3. 140, 3, 3. 76. 1113 

2f/j DATA36, 193, 32, 96, 165, 134, 122. 132, 123, 32, 115, 0,1180 

210 DATA170. 240. 243. 162, 255, 134, 58, 144. 3, 76, 150, 164, 1799 

220 0ATA32. 107, 169, 32, 121, 165, 173, 0,2, 240. 5, 169, 1215 

230 DATA 79, 141, 2, 3, 76, 162, 164, 169, 0,133, 2, 133, KM 

240 DATA251, 133, 252, 133, 254, 24, 101, 20, 69, 254, 230. 254, 197 

5 

250 DATA24, 101, 2 1,69, 254. 170, 230, 254, 164, 252, 185. 0,1724 

260 DATA2, 133, 253. 201, 34, 2r;8, 6, 165, 2, 73, 255, 133, 1465 

270 DATA2,201,32,2fj8,4,165,2,240,8,138,24.10l,li25 

280 DATA253 , 69 , 254 , 1 70 , 44 , X98 , 254 , 230 , 252 , 1 64 . 253 , 208 , 23 

49 

29fJ DATA213, 138, 41, 240, 74, 74, 74, 74, 24, 105, 129, 141, 1327 

W) DATA44, 193, 138, 41, 15, 24, 105. 129, 141, 45, 193, 162, 1230 

310 DATAO, 189,43,193,240,12,157,0.4,173, 134,2,1147 

320 DATA157.0,216,232.2f>8.239.169.38,141,2,3,173,1578 

330 DATA48.193,240,23,165,161,201,2l2,l76.4,l65,I6fji,1748 

340 DATA240.13,238.32,2f>8,16f;.0,32.225,25S.2'-j8.6,1617 

35'J DATA32 , 33 , 193 , 76 , 38 , 1 92 , 232 , 2rj8 , 24 2 , 2f/j , 208 . 239 , 1 893 

360 DATA32, 68, 229, 169, 0.168, 174, 49, 193, 32, 136. 255, 1555 

370 DATA173, 50, 193, 162, 51, 160, 193, 32, 189, 255. 169, 43. 1670 

380 DATA166, 45, 164, 46, 32, 216. 255, 162, 1,189. 51, 193, 1520 

390 DATA168,2V;,152,201,58,144,2,169,48,157,5],193,1543 

¥/l DATA201.48,2rj8,3,202,l6,234.32,33,193,76,]16,1362 

410 [).ATA164, 206, 32, 208, 169, 0,170, 168,76. 21 4, 255, IbO. 1827 

420 DArAl,l,l6O,0,O,65,72,79,8q,33,0,O,5rj0 



10 PR1NTCHR$( 147) "LOADING AND CHECKING THE DATA(3". 

-4864 

20 FORB-fjTOll : READA : IFA<fX)RA>255THEN40 

30 P0KEJ+B,A:X«X+A:NEXTB:READA;IFA-XTHEN5fJ 

40 PRINT: PRINT"ERR0R IN DATA LINE:"PEEK<66)*256+PEEK(65) 

:END 

V) X"'j:J-J+12:1FJ<5213THEN20 

6fJ POKE2fj8.0:POKE5213,0;A$-"Y":B$=A$:C$-"D":D$«"DIS)C'';D- 

8:PRIKTCHR$(147) 

70 INPUT"DO YOU WANT AUTOMATIC SAVES (Y/N)"!A$:PRIST:IFA 

$-"Y"THEN9fj 

Bf) PRINT"NO AUTOMATIC SAVES[3"." j":G0T015fJ 

9i"J POKE5213,l:ISPUT"DISK OR TAPE (D/T)";CS;IPC$<>"D"THEN 

D-1:DS-"TAPE" 

W} POKE5214,D:D$-DS+" DRIVE": PRINT: INPUT'TILE NUMBER (0 

-99)";N 

no N$=RIGHT$(STR$(N),2):IFN<KjTHENN$-CHR$(48)+CHR$<N+48 

) 

120F$="BACKUP":PRINT:INPUT"FI LEN AME" ; F$ : F$-N S+LEFT$ ( F$ , 

14):ULEN(P$) 

130 POKE52t5.L:FORJ»ITOL:POKE52I5+J,ASC(HIO$(F$,J,l)):NE 

XTJ: PRINT 

140 PRl.sr'SAVlNG DEVICE ** "DS:PRIST"STARTING WITH ** "F 

$ 

lyj PRINT: INPUT'*IS THIS CORRECT (Y/N)";B$:IFB$<>"Y"THEN6 



W} POKE770,198:POKE771 ,77:SYS4864:END 

170 DATA3Z, 58, 20. 169, 41. 162, 19. 236, 3, 3, 208. 4, 955 

18fi DATA169, 198, 162, 77, 141, 2. 3. 142. 3, 3. 224, 19, 1143 

Wi DATA2f>8. 7, 32, 125, 255, 79, 78, 0,96, 32, 125. 255, 1292 

2'/l D.ATA79, 70, 70, 0,96, 162, 0,134, 251, 189, 0,2, 1053 

210 0ATA24O, 19, 201. 48, 144. 9, 201, 58, 176, 5, 133, 251. 1485 

220 DATA232, 208, 238, 134, 252, 165, 251, 208, 3. 76, 198, 77, 2042 

230 DATA169, 0,166, 235, 164, 236, 133. 253, 133, 254, 142, 47, 193 

2 

240 DATA20, 140, 48, 20, 24, 101, 22, 69, 254, 2yj, 254, 24, 1206 

250 0ATA101,23,69,254,17O,230,254,164,252,185,O,2,nfM 

260 DATA133, 251, 201, 34. 208, 6, 165, 253, 73, 255, 133, 253, 1965 

270 DATA20I, 32, 208, 4, 165, 253, 240, 8, 138, 24, 101, 251, 1625 

280 DATA69, 254. 170, 44. 198, 254, 230, 252, 164, 251, 208, 213, 23 

07 

290 DATA138, 41, 240, 74, 74, 74, 74, 24, 105, 65, 141, 88, 1138 

3fXj DATA20, 138, il, 15, 24, 105, 65, 141, 89. 20, 32, 79, 769 

310 DATA20.l89,85,20,240,6,32,21O,255,232.2fj8,245,1742 

320 DATA174, 47, 20, 172, 48, 20, 24, 32, 240, 255, 173, 93, 1298 

330 DATA20, 240, 27, 165, 161, 201, 212, 176, 4, 165, Wj. 240. 1771 

340 DATA17,32.65,20,238,32,2rj8,238,l,214,32,225.1322 

35'J DATA255,2f;6,6,32,49,20,76,l98,77,232,2O8,242.l6fj3 

36fJ DATA2f/j,2O8,239,32,66,193,173,95,20,162.96.16fj,1644 

370 DATA20. 32, 189, 255. 169. 0,170. 32, K,i4, 255. 169, 0,1395 

380 DATA174, 94, 20, 168, 32, 166, 255, 169, 45, 174, 16. 18, 1351 

39f; DATA172. 17, 18, 32, 216, 255, 162. 1,139. 96, 20, 168, 1346 

4r^j DATA2*-K), 152, 201. 58, 144, 2, 169, 48, 157, 96, 20, 201, 1448 

410 DATA48,2f;8,3,2O2,16,234,32,49,20,141,0,2,955 

420 DATA 76, 183,77,58, 59, 32, 65, 20. 2fj6, 32, 2f;8, 206, 1222 

430 D.ATA1, 214, 169, 0,170, 168, 76, 219, 255, 32, 79, 20, 1403 

440 DATA169, 26, 141, 0,214. 173, 0,214, 16, 251, 96, 162, 1462 

450 DATAO, 142, 0,255, 96, 19, 18, 32, 32. 32, 32, 146,804 

460 DATAO, 1,0, 0,65, 72, 79, 89. 33, 0,0, 0,339 
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FLANKSPEED FOR THE C-64 By GORDON F. WHEAT 

Flankspeed will allow you to enter machine language Afuiy.' programs without any mistakes. Once you have typed the program 
in. save it for future use. While entering an ML program with Flankspeed there is no need to enter spaces or hit the carriage 
return. This is all done automatically. If you make an error in a line a bell will ring and you will be asked to enter it again. 
To LOAD in a program Saved with Fkinkspeeil use LOAD "nanie'.l.l tor tape, or LOAD -name'.S.I for disk. The ftinction keys 
may be used after the starting and ending addresses have been entered. 
fl-SAVEs what you have entered so (ar. 
0-LOADs in a program worked on previously. 

f5-To continue on a line you stopped on after LOADing in the previous saved work. 

(7- Scans through the program to locate a particular line, or to find out where you stopped the last time you entered the program, 
ft temporarily freezes the output as well. 



V/t POKE53290,12:POKE53281,11 OP 
105 PRIKT"[CLF.AR][c 3HRVS0NJ(15" "]FLANKSPEF:D[I5" "J"; FP 
11'-) PHI?!T"[RVS0Nli5" " ]MISTAKEPRQOF ML ENT8V PRCK;RAM[6" " 

I" JP 

115 PRIN'T"IRVS0N][9" "]CR£ATED BY G. F. WHEATI9" "J" F.^ 
120 PRI?fr'[RVS0N]I3" "JCOPR. 1987, ION INTERNATIONAL I^C. 

[3" "1" A.I 

125 FORA=.'i4272r05<4296:POKEA,0:NEXT ND 
130 POKE54272,4:POICE54273,48!POKE54277,0:POKEW27a,249:PO 

i:F.54296,l'i SP 

135 F0RA=68'rro699:READB:POKEA,B:SEXT FL 

liO DATA169, 251. 166. 253,164. 254, 32,216, 255.% FF 

li5 DATA169, 0,166, 251, 164, 2.52. 32, 213, 255, 96 EK 

150 BS="STAi?TI((G ADDRESS 1!) HEX":GOSIIB430:AD«B:SR=B KP 

155 GOSUB480;IFB-OTHENI5O OF. 

160 POKE251,T(4)+T(3)*I6:POKE252.T(2)+T(l)*16 AM 

165 BS="ENDING ADDRESS IS I1EX":G0SUB430;EN»B PE 

170 GOSUB4 70;IFB-'(THE^f!50 PC 

175 TOKE254,T(2)+T(l)*16:B=T(4)+UT(3)*16 CM 

160 IFB>255THENB-B-255:POKE2'i6,PEi:K(25i3 + l \K. 

135 POKE253,B: PRIST EC 

190 RF>1 GET HEX LINE ED 

195 GOSUB495:H8INT": [c P][LEFTl"; :F0RA=f/r08 KD 

2V( FORB^WOltCCTTOaSfJ IH 

205 ?JEXTB IJ 

210 .A%(A}-T(l)+T(0)*16:IFAD+A-l-E?ilHB)340 FX 

215 PRIST" [t P][LEFrr! fO 

220 r.'E!n'A:T-AD-(INT(AD/256)*256):PRIST" " II 

225 F0RA=f/rO7:T-T+A%(A):IFr>255TH£hT=T-255 Gi. 

230 SEXT CI 

235 IFAZ{e)<>rrHENGOSUB375:Gar0195 FI. 

240 F0S.A=rn'O7:POKEAD+A,A%(A):SEXT:AD=AD+a:a/r0I95 1^1 

245 KEM GET HEX INPUT PA 

250 GETA$:IFA$=""THEN250 GA 

255 IFA$=GHR$(20)THE,'J305 GO 

260 IFA$=GHRS(133)THEf;535 LM 

265 [FAS=.CHRS(n4)THES560 K, 

27'/ IFAS=CHRS(135)THE.SPRIST" ";GOT0620 HO 

275 [FAS=CHRS(136)THENPRI.ST" ":GOT0635 liE 

im IFAS>"e"ANDA$''"C"THENT{B).ASC(ASJ-5S:GOT029S MI 

285 IFA$>'7"ASDAS<":"THENT(B)=.ASC(AS)-4S:G0T0295 DJ 

29^; COSUa415:G0TO25rj J A 

295 PSI\'TAS"[c PHLETT]"; PK 

3f/i GOTO205 FA 

^05 rFA>f/rHEN320 B! 

il'j A=-l:IFB-VrHEN330 RB 

il5 GOT''J220 FA 

320 lFB=rjTHEHPR:NTCHRSC20);CHKS(20);:fl»A-l P.F 

325 A=A-1 FK 

ViO PRI\TCHRS(20)::GOT0220 ■ PH 

J35 RF>I LAST LINE CP 

J40 PRICT" ":T.Aa-(I»rr(AD/256)*256) KH 

345 FORB-rn'0A-l:T-T+A2(B}:IiT>255THE?rr-T-255 ^D 

350 NEXT OR 

355 lFA%{A)<>1THEtJGOSUB375!G0TO195 LH 

360 FOKB=^/TOA-1;POKEAIH-B,AS(B):N'EXT BO 

365 PRIhT:PRINT"YCXJ ARE FINISHED! ":GCIT0535 MB 

370 REM BELL AND ERROR MF_SSAGE£ :,M 
375 PRINT: PRINT"LI.ME ENTERED INCORRFXTLY":PRI'iT:Caro4l5 JK' 

380 PRINT: PRINT" IN PUT A 4 DIGIT HEX V.AUJE<":GOT0415 PG 
385 PRI,ST:PRINT"ENDISG IS LESS THAN STARTrNG!":B=0:G0T041 



5 IK 
•390 PRINT: PRINT''ADDRESS NOT WITHLN SPECIFIED RANGE! "tB^O! 

GOT0415 UK 

•395 PRINT: PRINT"NOT ZERO PAGE OR ROM!":B-0:GOT0415 DM 

•400 PRINT"?ERROR IN SAVE";G0T0415 JK 

'405 PR1NT"7ERR0R IN L0AD":G0T0415 10 

•410 PaiNT:PRIST:PRINT"ESD OF ML AREA":PRINT JO 

•415 POKE54276,17:POKE54276,16:RETU«N BF 

-420 0PEN15.B.15:INPUT*15,A,AS:CLOSE15:FRlSTAS:REniR.^ Dli 

•425 REM GET FWR DIGIT HEX IM 

•430 PRlKTiPRINTBSiilNPlITTS OL 

•435 IFLFJi(TS)<>4THENG0SUB38fj:G0TO4yj JD 
•440 F0RA-lTO4:A5=MIDS(TS,A,l)iGOSUB450:IPrCA)=.I6THESGOSUB 

3SO:GOT0430 AK 
•445 KEXT;B=(T(l)*4f/96)+(T(2)*256)+(T(3)*16)+T(4):HETUfiS KB 

•450 IFAS>"e"ANDAS<"G"THE\T(A)=ASC(AS)-55:RETURN GM 

•455 IFA$>"rANDAS<":"THENT(A)=ASC(A$)-4S:RETURS NJ 

•460 T(A)-16:RETURr< IC 

•465 REM ADDRESS CHFXK OL 

•470 IFAD>ENTHEN385 ilo 

•475 IFB<SH0RB>ENTHEN390 LE 

•480 IFB<2560R(B>4O96OANDB<49152)0RB.->53247THES395 OB 

•485 RETURN HE 

•490 REM ADDRESS TO HEX PM 

•495 AC=AD:A-4r;96:GOSUB520 AP 

•500 A-256:GOSUB520 ST 

■5f/5 A.16:G0SUB520 LG 

•510 A=l:GOSUB520 HF 

•515 RETURN JD 

•520 T-IST(AC/A):1FT>9THENA$»CHRS(T+55):GQT0530 (X 

•525 AS=iCHR$(T+4e) JI 

•530 PRIfiTA$;:AC=AC-A*T: RETURN AA 

•535 A$»"**SAVE**":G0S1JB585 IC 

•540 0PEN1,T,1.AS;SYS680:CL0SE1 AB 

•545 IFST-OTHENEND FB 

•550 GOSUB400:IFT=8THENG0S!JB420 PM 

•555 G0T0535 F! 

•560 AS="**L0AD**":GOSUB585 PF. 

• 565 OPEN 1 ,T , . AS : SYS69<'i : CLOSEl .^0 

•570 IFST=64THFJi'195 01 

•575 GOSUB405:IFT.8THENG0SUB42ri CO 

•58fJ G0T0560 GX 

•585 PRIST" ":PRINTrAB{14)AS KA 

•590 PRINT: AS="":INPin'"FILENAME"iA$ 10 

•595 IFAS-""THEN590 HK 

•600 PRINT; PRINT"TAPE OR DtSK?";PRlNT HL 

•605 GETBS:T-l:IFBS="D"THEST-8:A$="@fK"+A$:RETURN .NP: 

•610 IFB$<>"T"THEN605 KO 

•615 RETURN PH 

•620 BS=""CONTINUE FROM ADDRESS" :GOSl!B430:AD»B DD 

•525 COSUB475:IFB«^/rHEN620 S'K 

•630 PRINT:G0T0i95 HN 

■635 BS-"BEGIS SCAN AT ADDRESS" :GOSUB430:AD=B FK 

■640 GOSUB475:IFB=fjTHEN635 LS 

•645 PRINT;GOT0670 HI 
•650 FORB=f/r07;AOPEEK(AIHB):ta)saB505:IFAl>*-B=E?rrHE3<AD-SR:G 

0SUB410:GOTO195 LM 

•655 PRINT" ";:NEXTB LE 

•660 PRINT :AD-AD4-8 CD 

•665 GETB$:IFB$=CHR$(136)THEN195 JD 

•670 G0SUB495:PRINT": ";:G0T0650 KE 
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||mpf\DTAMTI '-^'^^'^ °r] while background are Bug Repellent line codes. Do not enter them! Pages 61 and 62 explain these codes 
IIVI I Un IHIl I ! and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 



VARI-SCAN 

FROM PAOE 30 



C-64 VERSION 

10 Y(m *** VARI-SCAN 64 *** BUCK CHILDRE 
SS *** EB 

20 REM *** P.O. BOX 13575 SALEM, OR 9730 
9 *** OA 

30 PRINTCHR$(1A7)*'L0ADING AND CHECKING D 
ATA LINE:":J=52000 BM 

40 F0RB=rjT011:READA MB 

50 IFB=r/rHENUPEEK(64)*256+PEEK(63) :PRIN 
TCHR$(19)TAB(31)L:PRINT PF 

60 IFA<00RA>255THEN80 FK 

70 POKEJ+B , A : X=X+A : D=D+1 : NEXTB : READA : IFA 
=XTHEN90 PL 

80 PRINT"ERROR IN DATA LINE: "L: END MG 
90 X=0:J=J+12:IFD<564THEN40 00 

100 PRINT"THE DATA IS 0K[3"."]":PRINT FB 
110 FRINT"SYS 52[3'V'] TO ACTIVATE[3"."] 
":END AH 

120 DATA104, 104, 169, 79, 32, 210, 255, 169, 78 
,162,57,160,1579 LA 

130 DATA203, 142, 0,3, 140, 1,3, 32, 210, 255, 7 
6,179,1244 BP 

140 DATA204, 173, 0,2, 201, 95, 208, 17, 169. 79 
,32,210,1390 JC 

150 DATA255, 169,70,32, 210,255, 162, 139, 16 
0,227, 76,45, ISOfJ ON 

160 DATA203,201,65,144,4,201,91,144,3,76 
,139,227,1498 HP 

170 DATA32, 96, 166, 162, 0,160, 0,140, 85, 205 
,140,83,1269 OJ 

180 DATA205, 189, 1,2, 240, 47, 48, 198, 201, 32 
,208,3,1374 LP 

190 DATA232, 208, 242, 72, 173, 85, 205, 208, 10 
,192,0,240,1867 AM 

200 DATA6, 104, 201, 48, 176, 238, 72, 104, 153, 
1,2,201,1306 FP 

210 DATA48, 176, 10,141,85,205,201,40,208, 
3,141,83,1341 NE 

220 DATA205,232,2f/j,208,204,153,l,2,165, 
43,166,44,1623 DA 

230 DATA133, 251, 134, 252, 134, 254, 160, 0,17 
7,43,133,253,1924 BO 

240 DATA152, 145,45, 200,208,251 , 141 ,90, 20 
5,141,92,205,1875 EP 

250 DATA32,2,205,160,2,177,251,20fJ.209,2 
51,208,7,1704 HN 

260 DATA201, 0,208, 3, 76, 167, 204, 170, 177, 2 
51,141,88,1686 HA 

270 DATA205, 142,89.205. 160,3,32,2,205,14 
1,91,205,1480 I A 

280 DATA173, 92, 205, 240,8, 162,0, 142, 92, 20 



5,32,187,1538 ~""AL 

290 DATA204 , 2Vj , 177 , 251 , 208 , 3 , 76 , 1 35 , 204 
,201,131,240,2030 AL 

300 DATA4 , 201 , 143 . 208 , 3 , 76 , 1 38 , 204 , 201 , 3 
4,208,7,1427 IK 

310 DATA174, 91, 205, 240, 212, 208, 207, 174, 9 
1,205,208,208,2223 GE 

320 DATA201 , 65, 144,22,201 ,91 .176, 2r/j, 141 
,92,205,174,1712 PJ 

330 DATA84, 205, 208, 55, 174, 87, 205, 224, 2,1 
44,51,76,1515 EP 

340 DATA237, 203, 174, 92, 205, 240, 190, 201, 5 
8,176,173,201,2150 BG 

350 DATA48, 176, 228, 201, 32, 240, 178, 201, 36 
,240,21,201,1802 EP 

360 DATA37 , 240 , 1 7 , 201 , 40 , 240 ,13, 201 ,41,2 
40,9,201,1480 BC 

370 DATA44, 208, 29, 174, 83, 205, 240, 24, 141, 
84,205,174,1611 KG 

380 DATA87 , 205 , 1 57 , 93 , 205 , 238 , 87 , 205 , 201 
,41.208,11,1738 BF 

390 DATA173 , 83 , 205 , 208 , 3 , 206 , 87 , 205 , 76 , 2 
24,203,201,1874 CG 

400 DATA40, 208, 17, 232, 142, 86, 205, 173, 83, 
205,208,8,1607 AP 

410 DATA169, 0,141, 92, 205, 141, 87, 205, 76, 2 
37,203.32,1588 BA 

420 DATA187, 204, 32,5,205, 166, 253, 165, 254 
,240,20,134,1865 DN 

430 DATA25i, 133, 252, 160, 0,177, 253, 72, 200 
,177.253,133,2061 HI 

440 DATA254, 104, 133, 253, 76, 191, 203, 173, 9 
0,205,208,7,1897 KL 

450 DATA169, 47, 160, 205, 32, 30, 171, 169, 0,1 
41,0,2,1126 GP 

460 DATA76, 116, 164, 162, 0,189, 0,2, 240, 18, 
201,92,1260 GO 

470 DATA208,6,236,86,205,76,215,204,221, 
93,205,208,1963 JJ 

480 DATA49 , 232 , 208 , 233 , 236 , 87 , 205 , 208 ,41 
,104,104,173,1880 FI 

490 DATA90, 205, 208, 7, 169, 21, 160, 205, 32, 3 
0,171,169,1467 GK 

SV) DATA76, 160, 205,32, 30, 171 , 173 ,88, 205, 
174,89,205,1608 LG 

510 DATA32, 205, 189, 169, 13, 32, 210, 255, 141 
,90,205,76,1617 NJ 

520 DATA138, 204, 169, 0,170, 157, 93, 205, 232 
,208,250,141,1967 IE 

530 DATA84, 205. 141, 86, 205, 141, 87, 205, 96, 
13.18,86,1367 DK 

540 DATA65, 82, 73, 65, 66, 76, 69, 32, 73, 83, 32 
.73,789 IB 

550 DATA78, 32, 85, 83, 69, 46, 46, 46, 13, 13.0, 
13,524 iJA 



■2; 
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:AL 

AL 
) 

IK 
\ 

GE 

PJ 

EP 
BG 
EP 
BC 
KC 
BF 
CG 

'ap 

BA 
DN 
HI j 
KL 
bP 

GO ^ 

1 

rj 



* 



GK 



LG I 

NJ 
IE 
DK 
IB 

I 

JA 



•560 DATA18, 86, 65, 82, 73, 65, 66, 76, 69, 32, 73' 
,83,788 MI 

•570 DATA32, 78, 79. 84, 32, 73, 78, 32, 85, 83, 69 
,46,771 GN 

•580 DATA46, 46, 13, 0,76, 73, 78, 69, 58, 32, 0.2 
20,711 CO 

C-128 VERSION 

10 REM *** VARI-SCAN 128 *** BUCK CHILDR 
ESS *** ED 

20 REM *** P.O. BOX 13575 SALEM, OR 9730 
9 *** OA 

30 PRINTCHR$(147)"LOADING AND CHECKING D 
ATA LINE:":J=4864 AD 

40 F0RB=0T011:READA MB 

50 IFB=0THENL=PEEK(66)*256+PEEK(65) :PRIN 
TCHR$(19)TAB( 31 )L: PRINT LB 

60 IFA<0ORA>255THEN80 FK 

70 POKEJ+B , A : X=X+A : D=D+1 : NEXTB : READA : IFA 
=XTHEN90 PL 

80 PRINT"ERROR IN DATA LINE: "L: END MG 
90 X=0:J=J+12:IFD<636THEN40 00 

100 PRINT"THE DATA IS 0K[3"."]":PRINT FB 
110 PRINT"SYS 4864 TO ACTIVATE[3"."]":EN 
D AJ 

120 DATA104, 104, 32, 129, 146, 79, 78, 0,169, 2 
9,162,19,1051 ND 

130 DATA141,2,3,142,3,3,169,69,141,0,3,1 
42,818 PI 

140 DATAl, 3, 76, 236, 20, 169, 0,162, 19, 133, 2 
51,141,1211 AN 

150 DATAO, 255, 134, 252, 169, 251 , 141 ,185,2, 
162,1,160,1712 EJ 

160 DATAO, 177, 251, 32, 119, 255, 230, 251, 208 
,238,230,252,2243 IN 

170 DATA165, 252, 201, 22, 144, 230, 76. 198, 77 
,173,0,2,1540 IH 

180 DATA201,95,208,22,32,129,146,79,70,7 
0,0,169,1221 KK 

190 DATA198,162,77,141,2,3,142,3,3,169,6 
3,76,1039 GP 

200 DATA20 , 19 , 201 , 65 , 144 , 4 , 201 , 91 , 144 , 3 , 
76,63,1031 PL 

210 DATA77, 32, 250, 81, 162, 0,160, 0,140, 120 
,21,140,1183 KD 

220 DATA118, 21, 189, 1,2, 240, 47, 48, 153, 201 
,32,208,1260 JG 

230 DATA3, 232, 208, 242, 72, 173. 120, 21, 208, 
10,192,0,1481 DE 

240 DATA240,6,104,201,48,176,238,72,104. 
153,1,2,1345 PP 

250 DATA201 ,48, 176, 10,141, 120,21 ,201 ,40, 
208,3,141,1310 HN 

260 DATA118, 21, 232, 200, 208, 2r;4, 153, 1,2,1 
65,45,166,1515 AF 

270 DATA46, 133, 251, 134, 252, 134, 254, 160,0 
,177,45,133,1719 IB 



•280 DATA253, 173, 16, 18, 174, 17, 18, 133,65,1 
34,66,152,1219 GO 

• 290 DATA145 , 65 , 2Vj, 208, 251 ,141,125,21, 14 
1,127,21,32,1477 HB 

•300 DATA92.21 , 160, 2, 177, 251 ,200,209,251 , 

208,7,201,1779 AO 

•310 DATAO, 208, 3, 76. 194, 20, 170, 177, 251, 14 

1,123,21,1384 CK 

•320 DATA142,124,21,160,3.32.92,21,141,12 

6,21,173,1056 HJ 

•330 DATA127, 21, 240, 8, 162, 0,142, 127, 21, 32 

,247,20,1147 JP 

•340 DATA200,177,251,208,3,76,162,20,201. 

131,240,4,1673 JC 

•350 DATA201 , 143, 208, 3, 76, 165, 20, 201 , 34, 2 

08,7,174,1440 DJ 

•360 DATA126, 21, 240, 212, 208, 207, 174, 126, 2 

1,208,208,201,1952 GL 

•370 DATA65,144,22,201,91,176,2r/j,141,127 

,21,174,119,1481 HH 

•380 DATA21, 208, 55, 174, 122, 21, 224, 2, 144, 5 

1,76,8,1106 JO 

•390 DATA20, 174, 127, 21 ,240, 190,201 ,58, 176 

,173,201,48,1629 HB 

'UrjT) DATAl 76, 228, 201, 32, 240, 178, 201, 36, 24 

0,21,201,37,1791 EI 

•410 DATA240, 17, 201 ,40,240, 13,201 ,41 , 240, 

9,201,44,1487 MN 

•420 DATA208, 29, 174, 118, 21, 240, 24, 141, 119 

,21,174,122,1391 FJ 

•430 DATA21, 157, 128, 21. 238, 122, 21. 201, 41, 

208,11,173,1342 HP 

•440 DATA118, 21, 208, 3, 206, 122, 21, 76, 251,1 

9,201,40,1286 CJ 

•450 DATA208, 17, 232, 142, 121, 21, 173, 118, 21 

,208,8,169,1438 JM 

•460 DATAO, 141, 127, 21, 141, 122, 21, 76, 8, 20, 

32,247,956 JF 

•470 DATA20, 32, 95, 21, 166, 253, 165, 254, 240, 

20,134,251,1651 AA 

•480 DATA133, 252, 160, 0.177, 253, 72. 200, 177 

,253,133,254,2064 EG 

•490 DATA104, 133, 253, 76, 218, 19, 173, 125, 21 

,208,37,169,1536 JF 

•500 DATAO, 141, 0,255, 32, 129, 146, 13, 18, 86, 

65,82,967 01 

•510 DATA73, 65, 66, 76, 69, 32, 73, 83. 32, 78. 79 

.84,810 FJ 

•520 DATA32, 73, 78, 32, 85, 83, 69, 46, 46, 46, 13 

,0,603 AN 

•530 DATA169, 0,141, 0,2, 141, 0,255, 76, 55, 77 

,162,1078 FJ 

• 540 DATAO, 189 , , 2 , 240. 18 , 201 , 92 , 208 , 6 , 23 
6,121,1313 DK 

•550 DATA21, 76, 19, 21, 221, 128, 21, 208, 79, 23 
2,208,233,1467 HL 

•560 DATA236, 122, 21, 208, 71, 104, 104, 169,0, 
141,0,255, 1431 FM 
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•570 DATA173,125,21,208,29,32,129,146,13, 

18,86,65,1045 HO 

•580 DATA82, 73, 65, 66, 76, 69, 32, 73, 83, 32, 73 

,78,802 J J 

•590 DATA32, 85, 83,69,46,46,46, 13, 13,0,32, 

129,594 KF 

•600 DATA146,76,73.78,69,58,32,0,173,123, 

21,174,1023 MO 

•610 DATA124,21,32,50,142,169,13,32,210,2 

55,141,125,1314 KM 

•620 DATA21, 76, 165, 20, 169, 0,170, 157, 128, 2 

1,232.208,1367 IN 

•630 DATA250, 141 , 1 19, 21 , 141 , 121 , 21 , 141 , 12 

2,21,169,63,1330 KJ 

•640 DATA141, 0,255, 169, 0,96, 0,0, 65, 72, 83, 

0,881 HC 



FROM PAGE 32 





C-64 PADDLE ROUTINE 


1 REM== 
3 REM 


C-64 PADDLE ROUTINE 


4 REM 


RUPERT REPORT #55 




5 REM 






6 REM 


MONITOR LISTING 




a RFM— 






9 REM 


DISABLE INTERRUPTS 


(LINE 90) 


10 REM 


SAVE CIA DDR ( 


:LINE 100) 


11 REM 


SET BITS 7 & 6 OF CIA 


12 REM 


#1 AS OUTPUTS 


(110-120) 


13 REM 


ENABLE POTS A AND B 


(130) 


14 REM 


PUT DELAY COUNT IN X 


(140) 


15 REM 


DELAY LOOP 


(150-170) 


16 REM 


READ POT X 


(180) 


17 REM 


STORE POT X IN 251 


(190) 


18 REM 


READ POT Y 


(200) 


19 REM 


STORE POT Y IN 252 


(210) 


20 REM 


RESTORE CIA DDR 


(220) 


21 REM 


ENABLE INTERRUPTS 


(230) 


22 REM 


BACK TO BASIC 


(240) 



23 REM======================== 

90 "f)CV)(} 78 SEX 

AC 02 DC LDY $DC02 
A9 CO LDA #$C0 
8D 02 DC STA $DC02 
8D 00 DC STA $DCOO 
AA TAX 
EA NOP 
CA DEX 
10 FC BPL $COOD 
AD 19 D4 LDA $D419 
85 FB STA $FB 
AD lA D4 LDA $D41A 



if/j "rx;ooi 

110 "f"jC004 

120 "rx:r/;6 

130 "0C009 

140 "rx:ooc 

150 "rx:OOD 

160 "OCOOE 

170 "rjCr/jF 

180 "f^KlOll 

190 "0C014 

200 "0C016 

210 "rx:019 



220 "OCOIB 
230 "fjCOlE 
240 "OCOIF 



I pages I 

8C 02 DC STY 
58 CLI 
60 RTS 



85 FC STA $FC 



THERMAL CONNECTION 



3040 

3050 

$DC02 [ 3060 

3070 

( 3080 

t 3090 

THERMAL CONNEQION 3100 

73110 
AO i.3i20 
JD! WAT 
FF .3130 



1 HEW == 

2 REM 

3 REM 

4 Rm 

5 REM 

6 REM 

7 REM ======================== 

8 REM CALIBRATE AND READ THERMISTOR 

9 REM CONNECTED TO PADDLE INPUT 



RUPERT REPORT #55 



JF 
CE 
JH 



3140 
3150 
3160 
NE -3170 

™ .3180 



PL 
JL 



20 DEF FNR(X)=INT(10*X+.5)/10 :REM 

ROUND OFF TO 1 DECIMAL JO 

30 DEF FNK2F(T)=1.8*(T-273)+32 :REM 

CONVERT DEC K TO DEG F JP 

40 DEF FNF2K(T)=273+(T-32)/1.8 :REM 

CONVERT DEG F TO DEG K AE 

50 DEF FNT(R)=1/(1/Tr>f(l/B)*L0G(R/R0)) : 

REM TEMP IN DEG K BJ 

60 GOSUB 3000 :REM GET CALIBRATION 

CONSTANTS NG 

70 PRINT "PUT THERMISTOR AT NEW TEMPERAT 
URE" GF 

80 PRINT "PRESS ANY KEY WHEN READY" KP 
90 GET K$: IF K$="" THEN 90 JA 

95 REM MAIN LOOP FH 

100 R=P0T(1) LN 

110 T=FNT(R) :REM TEMP IN DEG K MM 
120 PRINT "TEMPERATURE :";FNR(FNK2F(T)); 

"DEG F "j HA 

130 PRINT FNR(T-273); "DEG C" 00 

140 GOTO 100 KB 

1000 REM WAIT FOR SETTLING KF 

1010 PRINT "PRESS A KEY WHEN VALUE HAS S 
ETTLED :" EC 

1020 P1=P0T(1) JB 

1030 PRINT PI; FO 

1040 GET K$: IF K$="" THEN 1020 MB 
1050 RETURN KM 

2000 REM AVERAGE VALUES JE 

2010 SUM=f; LM 

2020 FOR N=l TO 10 JL 

2030 P1=P0T(1) HD 

2040 SUM=SUM+P1: NEXT HL 

2050 RN=SUM/10 FH 

2060 RETURN KG 

30r/j REM GET CALIB. CONSTANTS EM 

3010 PRINT " [CLEAR ]D0 YOU KNOW CALIBRATI 
ON CONSTANTS (Y/N)": INPUT K$ CJ 

3020 IF K$="N" THEN 3070 :REM CALIBRATE MH 
3030 INPUT "WHAT IS B": B JN 



3190 
32VJ 
^•3210 
STAN 
3220 
3230 
3240 
3250 
326fj 
": P 
3270 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
5W, 
•5Vj1 
•5r/j; 
5W 

sm 
h50ir 

502^ 

503( 

504f 

•505f 

•SIV 

•511f 

ENI 

49i: 

491( 

|-491f 

49i: 

h491« 

LI 
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^3040 INPUT "WHAT IS TO"; TO CM 

^3050 INPUT "WHAT IS RO"; RO AG 

^3060 GOTO 3270 :REM RETURN NP 

^070 PRINT "PUT THERMISTOR AT ROOM TEMP" IK 

3080 INPUT"WHAT IS ROOM TEMP (DEC F)";T1 NC 

3090 GOSUB 1010 :REM DISPLAY RESISTANCE EM 

ION -3100 GOSUB 2010 :REM RETURN VALUE LO 

'3110 R1=RN AN 

^^0 .3120 PRINT: PRINT "PUT THERMISTOR IN ICE 

JD WATER" CI 

FF 3130 PRINT "PRESS ANY KEY WHEN READY" JF 

JF ^3140 GET K$: IF K$="" THEN 3140 OG 

CE J 3150 GOSUB 1010 KJ 

JH f3i60 GOSUB 2010 LC 

NE -3170 RO=RN EK 

FH 3180 T1=FNF2K(T1): TO=273 FF 

PL I3190 PRINT: PRINT" [38"="]" EP 

JL .3200 B=L0G(R1/R0)/(1/T1-1/T0) DH 

i b210 PRINT "RECORD THESE CALIBRATION CON 

JO ST ANTS :" KH 

3220 PRINT "B =";FNR(B) OG 

JP 3230 PRINT "TO =";T0 DP 

■3240 PRINT "RO =";R0 DN 

AE .3250 PRINT" [38"="]" ML 

•3260 PRINT "THERMISTOR IS NOW CALIBRATED 
BJ {": PRINT: PRINT AA 

^3270 RETURN GA 

NG I499O REM ############################### HO 
•4991 REM FOLLOWING LINES FOR C-64 ONLY NE 
i4992 REM ############################### FM 
U993 REM ADD LINE 11 JA 

14994 REM REPLACE LINES W), 1020, 2030 LK 
•4995 REM ADD LINES 5010-49184 
'4996 REM 

'5000 REM 11 SA=49152: GOSUB 5010 
'5001 REM 100 SYS SA: R=PEEK(251) 
•5002 REM 1020 SYS SA: P1=PEEK(251) 
>5003 REM 2030 SYS SA: P1=PEEK(251) 
•5004 REM==^=:======================= 

•5010 M=49152: CSUM=4609 



GB 
CE 
ME 
FM 
MD 
DG 
JC 
IE 
NO 
CM 
EE 
BJ 
EN 



•5020 READ B$: IF B$="XX" THEN SK/j 

•5030 B=VAL(B$) 

'5040 POKE M.B: M=M+1: CK=CK+B 

>5050 GOTO 5020 

^5W) IF CK=CSUM THEN RETURN 

>5110 PRINT "DATA ERROR. CHECK TYPING.": 

END 01 

•49152 DATA 120,172,2,220,169.192,141,2 KB 
•49160 DATA 220,141,0,220,170,234,202,16 LB 
'49168 DATA 252,173,25,212,133,251,173,26 MN 
•49176 DATA 212,133,252,140,2,220,88,96 NP 
•49184 DATA XX BE 




LUNAR BUGGY 

fROM PAOE 15 



10 P0KE53248+21, .:C0L0R0,1:C0L0R4,1:PRIN 



TCHR$(11)CHR$(142)CHR$(147):CHAR,10,5,"[ 
c 5][s Ul[4"[s C]"][s I][D0WN][6"[LEFT]" 
][s B][4"Z"][s B][D0WN][6"[LEFT]"][s J][ 
4"[s C]"][s K][s Q][DOWN][s W][D0WN][s W 
][ DOWN]. [DOWN]." 

•20 CHAR. 20, 12. "[c 8][4"[c @]"][D0WN][5"[ 
LEFr]"][s N][s F][s F] [s F][s M][DOWNl[ 
7"[LEFT]"][s N][4"[c +]"] [c +][s Ml[DOW 
N][8"[LEFr]"][8"[c U]"]":CHAR,23.10,"(WO 
RKING)" 

• 30 FORX=3584T04096 : READA$ : POKEX , DEC( A$) : 
NEXT : F0RX=4864T05054 : READA$ : POKEX , DEC( A$ 
) :NEXT 

•40 F0RX=.T063:P0KE55*64+X, . :NEXT:P0KE55* 
64+32, 192:P0KE55*64+35,192:PRINTCHR$(147 

) 

• 50 P0KE4593 , 203 : P0KE4592 , 1 Vj : P0KE4595 , 0: 
P0KE4594 , 30 : P0KE4602 , 250: P0KE4597 , 0: POKE 
4598, 130 : P0KE4599 , 56 : SYS4864 

•60 B$="":F0RX=.T039:B$=B$+CHR$(32):NEXT: 
F0RX=1T08 : MOVSPRX , . # . : NEXT 

•70 TEMP010:D$(.)="01":D$(2)="02":D$(3)=" 
03":D$(4)="04":D$(5)="04";D$(6)="01" 

• 80 F0RX=4T07 : P0KE2040+X , 62 : NEXT : F0RX=5T0 
6:SPRITEX,.,13,.,1,1..:NEXT:FORX=7T08:SP 
RITEX , . . 12 , . , 1 , . , . : NEXT: POKE204O+3 , 63 : PO 
KE2041 , 55 : SPRITE2 ,., 2 ,.,.,., . 

•90 MOVSPR5,30,152:MOVSPR6,250,152:MOV$PR 
7,120,157:MOVSPR8,350,157:FORX=5T06:MOVS 
PRX , 270#2 ;M0VSPRX+2 , 270#1 : NEXT : P0KE2040, 
56 : SPRITEl ,., 14 ,.,.,.,. : MOVSPRl , 100 , 1 98 

• U/J P0KE2043 , 60 : P0KE2042 , 59 : SPRITES , . , 4 , 
.,.,., 1 :M0VSPR3 ,370, 150:SPRITE4, . , 13, . , 1 
, 1 , . : M0VSPR4 , 370 , 1 98 : M0VSPR4 , 270#3 

•110 G0SUB380:PRINTCHR$(27)"M";"[4"[D0WN] 
"][RVSON][c 4]"B$B$"[c 5]"B$B$B$"[c 8]"B 
$B$B$B$ 

•120 DIMD(8),S(1),M$(2) 

•130 J=.tD=.:G=15:F=127:Z=.:V=l:Q=.:S=.:B 
=.:H=5:P=10:I=5:K=25:U=1:T=2;M=3:L=198:S 
C=.:N=4:Q=240:VIC=53248:S(.)=315:S(1)=22 
5 

•140 A$="[H0ME][5"[D0WN]"][21"[RIGHT]"]": 
B$="[8"[RIGHTr']":M$(.)=" YOU RECOVERED 
THE BUGGY! ":M$(1)-" YOU CRASHED IN A CR 
ATER! ":M$(2)=" YOU COLLIDED WITH THE SH 
IP!" 

•150 FORX=1T010:READB$CX):NEXT 

•160 F0RX=.T08:D(X)=-1:NEXT:D(.)=90:D(1)= 
: D(3 )=90: F$=" [ 5"#" ] " : H$=" [ 4"#" ] " : SPRCOL 
0R7,3 

•170 DEFFNJ(X)=(C<H)*T+(C=>H)*-T+(C=P)*T 

•180 DEFFNF(U)=-(J>FANDD(X)=>.ANDRSPRITE( 
T, .)=.):DEFFNC(X)=(J=H)*-U+((JANDG)=H+U) 
*-T+((JAND(H+M))>.)*-M 

•190 POKEVICl-21,241:X=.:DO:PLAYD$(X):PLAY 
"T7IG#GGEG#GGE":X=X+l+(X=6)*7:LOOPWHILEJ 
OY(2)<127:WINDOWO,0,39,15,l:PRINr'[HOME] 

AHOri 67 



I 



NP 



BK 

JE 

HE 

EO 
EA 
MJ 

PI 

EI 

BC 



CH 

MN 



AA 



AN 
AA 



BE 
KA 



IE 




[HOME]":F0RJ=.TO99:X=RND(U)*585:P0KE1024 
+X,A6 HA 

•200 P0KE55296+X,RNDCU)*P+U:NEXT HB 
•210 CHAR, 1,5, "[GREEN] MILES TO NEXT BASE: 

[c 6][5"0"] [GREEN] SCORE [c 6][5"0"]" ON 
•220 GOSUB360:B=500:Q={10-V)*.1:CHAR,15,2 
,"[c 7]BASE [WHITE]" :PUDEF" ":PRINTUSING 
H$;B$(V):PUDEF"0":M0VSPR3,480,160:SPRITE 
3,l,V+l:POKE4595,l KB 

•230 J=BUMP(U):J=BUMP(U) BL 

•240 REM MAIN LOOP NG 

•250 DO:J=JOY(T):X=JOY(T)AN1)G:IFDTHENMOVS 
PRU , + . , +D : C=C+U : D=FN J( . ) : ELSEMOVSPRU , + . , 
L: IFX=UANDJ<FTHEND=-U: C= . : SOUNDU , F*F , K , . 
,F*M,F*M, .:ELSEIFRNI>(.)>QTHENZ=-(Z=.) BB 
•260 ONFNF( . )GOSUB350:MOVSPRM,S(Z)#V:PRIN 
TA$; :PRINTUSINGF$;B; :B=B-U:PRINTB$; rPRIN 
TUSINGF$;S:J=BUMP(U):LOOPUNTILB<.ORFNC(. 
):0NFNC(.)G0TO3Vj,340,310 CP 

•270 M0VSPRU,+.,L:V=V+U:D=.:IFV<11THEN220IJ 

• 280 F0RX=1T08 : MOVSPRX , . # . : NEXT : PLAY" VlOl 
Q$BV2O2I$BV105.W$BV2O3I$B04I$EV303IGI$BV 
204IGIGV3I$EO3I$BV2IFI$EV3O3IGI$BV204IFQ 
GV3Q$E03Q$BV204Q$EQ$EV303QG" : X= . OF 

•290 J=1:D0:PRINT"[H0ME][7"[IX)WN]"][RVS0N 
]"TAB(6)M$(X):C0L0R5,J:J=J+1+(J=16)*16:L 
00PUNTIU0Y(T)>127:RUN FC 

•300 GOSUB320:X=2:GOT0290 AB 

•310 GOSUB320:X=:l:GOT0290 BC 

•320 SYS65418:F0RX-1T08:M0VSPRX, .#. :NEXT: 
F0RX=1T03 : SPRITEX ,., 2 ,.,.,.,. : MOVSPRX , RS 
PP0S(U,.).RSPP0S(U,U):P0KE2039+X,61:NEXT JE 
•330 SOUNDS, 4000, 120, 1,500, 500, 3:F0RX=IT0 
3 : MOVSPRX , X*45+20#2 : SPRITEX , U : NEXT: SLEEP 
2:P0KEVIC+21,248:RETLliN CF 

•340 POKE2042,61:MOVSPRM, .#. :SOUNDM,F*P,K 
*M,T,K*M,K*M,M:SPRITEM, . :M0VSPRM,480,+. : 
POKE2042 , 59 : SPRITES , U : S=S+10rj*V : GOTO230 FN 

• 350 SPRITET , . : MOVSPRT ,.#.: MOVSPRT , RSPPOS 
(U,.),RSPPOS(U,U):MOVSPRT,D(X)#P:SOimDT, 
F*K,K,U,F,F,M:SPRITET,U:RETURN BG 

• 360 SPRITES , . : SPRITE4 ,. ,2, ..1,1,1 :MOVSPR 
4,470,176:P0KE2043,63:SPRITE4,l:DO:X=RSP 
POS ( 4 , . ) : L00PUNTILX>470ANDX<480 MA 

-370 SPRITE4, . , 13, . , 1 , 1, . :MOVSPR4,480, 198 
: P0KE2043 , 60 : SPRITE4 , 1 ; RETURN EG 

•380 PRINT"[H0ME]"TAB(7)"[ YELLOW] AHOY! MA 
GAZINE PRESENTS [DOWN]" PH 

•390 PRINTTAB(8)"[GREEN}[RVS0N] [RVSOFF] 
[RVSON] [c J] [c G] [c *] [c G][3" " 
][c G}[3" "]" JE 

•400 PRINTTAB(8)" [RVSON] [RVSOFF] [RVSO 
N] [c J] [c G][4" "][c G][c C][c V] [c 
G][c Cl[c V] " KK 

•410 PRINTTAB(8)"tRVS0N] [RVSOFF] [RVSO 
N] [c J] [c G] [RVS0FF][c *][RVS0N] [c 

G] [c G] [c G] [RVS0FF][c *][RVSON] [c 
*]" FH 

68 AHOri 



•420 PRINTTAB(8)"[RVS0N][3" "][c M][4" "] 
[c G] [RVSOFF] [RVSON] [c G] [c G] [c G 
] [RVSOFF] [RVSON] " OJ 

•430 PRINTrAB(8)"[c 6] [RVSON] B[3" "]U[3 
" "]G[3" "]G[3" "]Y! " OA 

•440 PRINTTAB(12)"[ YELLOW] [DOWN] [DOWNjFOR 
THE C-128!":PRINTTAB(4)"[D0WN][c 6]CC)1 
988 CLEVELAND M. BLAKEMORE" : RETURN CP 

•450 REM SPRITE DATA CG 

•460 DATA OF, 80,, 10, 47,, 23, 22,, 2E, 22., 7F, 
FF,80,FF,FF,E0,FF,1,F0,FE,BA,F8,54,BA,55 
,FF,1,FF,FF,B9,FD,7F,76 KI 

•470 DATA FC,3E,E7,78,l,DB,80,3,81,Crj,7D, 
,BE,D6, ,6B,92, ,49,92, ,49, D6, ,6B,7C, ,3E, , 
F, 80,, 10, 47,0 FE 

•480 DATA 23,22,,2E,22,.7F,FF.80,FF,FF,E0 
,FF,1,F0,FE,BA.F8,54,BA,55,FF,1,FF,FF,B9 
,FD,7F,76,FC,3E,E7,78,l,DB CK 

•490 DATA 80,3,81,C0,7D,,BE,C6,,63,9A,,4D 
,B2,,59,C6,,63.7C,,3E,,F,80,,10,47,,23,2 
2.,,2E,22,0 OB 

•500 DATA 7F,FF,80,FF,FF,E0,FF,1,F0,FE,BA 
,F8,54,BA,55,FF.1,FF,FF,B9,FD,7F,76,FC,3 
E, E7, 78, 1,DB, 80,3,81.00,70,0 KD 

•510 DATA BE,C6,,63,B2,,59,9A,,4D,C6,,63, 
7C,,3E,,,AA,,2,14,80.2,14,80,2A,AA,A8,99 
,96,66,AA,AA,AA HH 

•520 DATA 2A,AA,A8.,FF, ,,,,,,,,.,,,,,.,,, 

• jJ'J UAiAU, ,),,,,,,,,, I, ,,,,,,,.,,t>«>>ft 
,,.0 AJ 

•540 DATA0,,,,,,FF,FF,FF.7F,FF.FE,7F,FF,F 
8,FF,FF,FC,6F,FF,FE,F,FF,F0,F,FF,30,C,FF 
,90,, 73, 80, ,20 NE 

•550 DATAO,,,,,, 24. 40, 9,,,, 24, 48, 2, 1,1, 20 
,,20,8,10,2,80,4A,88,11,38,1,,7D,8,42,90 
,0 EB 

•560 DATAO, 28, 82, 90, 82,,, 10, 8, 20, 44, 1,8,, 
28., 81,, 24,, 10., 24, 40,1,,,, 4,,,,,, LM 

•570 DATAO, ,.,,.,,.,, ,40, , ,42, , ,C3, .1.C3, 
,1,C3,,1,E3,80,3,E7,80,7,FF,80 DH 

•580 DATA 07,FF,C0.7.FF.E0,7,FF,FO,7,FF,F 
0,F,FF,F0,F,FF,F8,3F,FF,FC,7F,FF,FC,FF,F 
F,FF, ,,5,FC, ,5,A8,0 CO 

•590 DATA 0F,FC,.A,A8,,F,FC,,8,,,8,,,8.,5 
,55,50,15,55.54,55.55,55,66,69,99,55,55, 
55,66,69,99 GJ 

-er/) DATA 55,55,55,55,55.55,56,96,95,56,9 
6, 95. 56, 96. 95, 56, 96, 95, 56, 96, 95,, 7 KE 

•610 REM INTERRUPT DATA NO 

•620 DATA 78,A9,D,8D,14,3,A9,13,8D,15,3,5 
8,60,AD,F3,11,D0,3,4C,2F,13,AD,,DC,29,F. 
85,FD,A9,F,38,E5,FD,C9,4 GA 

•630 DATA D0,3,CE,D6,11,C9,8,D0,3,EE,D6.1 
1,AD,D6,11,38,CD,F2,11,B0.9,AD,F2,11,8D, 
D6. 11, 40,50, 13, AD, D6, 11, 38, CD AN 

•640 DATA FA,11,90,6,AD,FA,11,8D,D6,11,A2 
,7,8E.F4,11.AD,F4,11.A,AA,E8,BD,D6,11,38 
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,CD,F0,11,B0,15,AD,F0,11,9D,B6 ID 

•650 DATA 11,E0,3,D0,1A,A9,FD,2D,15,D0,8D 
WM ,15,D0,4C,88, 13, BD, 06,11.38, CD, Fl, 11,90, 
I 1 6,AD,F1,11,9D,D6,11,CE,F4,11,30 DF 

I H-660 DATA 3,4C,55,13,CE,F5,11,30,16,AD,F6 
:P ■ ,11,8D.F5,11,AE,F7.11.E8,E0,3B,D0,2,A2,3 
5G J 8,8E,F7,11,8E,F8,7,AD,D8,11,38 HC 

F .^-670 DATA CD,FA,11,90,8,A9,FD,2D,15,D0,8D 

,15,Dfj,4C,65,FA GM 

;i -680 REM BASES LN 

•690 DATA I, II, TIT, IV. V, VI, VII, VIII, IX, X 10 



'T- 



WINDOW 

FROM PAGE 37 



:d 

m 
;k 

IE 

I ;; 

SB 
M 

m 

:c 
;j 

IE 
iO 



N 



I 



[ ■, 



BASIC LOADER 

100 REM *** WINDOW DRESSING LOADER *** NC 
110 SA=4864:REM WILL RELOCATE LA 

120 CK=0 OL 

130 READD:CK=CK+D:IFD=999THEN150 AG 
140 G0T0130 KO 

150 IFCK<>30632THEKPRINT"ERR0R IN DATA": 
END IC 

160 RESTORE CM 

170 NA=SA IP 

180 READD:IFD=999THEN230 AL 

■190 IFD=>0THENPOKENA.D:GOTO220 LP 
■20rj AD=SA+ABS(D) tH=AD/256:L=AD-INT(AD/25 
6)*256 BB 

■210 P0KENA,L:NA=NA+1:P0KENA,H BO 

'220 NA=NA+1:GOT0180 OA 

' 230 AD=SA+246 : H=AD/256 : L=AD-INT( AD/256)* 
256 LE 

■240 P0KESA+181,L:P0KESA+183,H NF 

■250 PRINT"WINDOW DRESSING INSTALLED"SA"T 
0"NA CN 

'260 PRINT"SYS"SA"FOR FRAME" CG 

'270 PRINT"SYS"SA+3"F0R PRINT AT" EO 
'280 PRINT"SYS"SA+6"F0R CRSR RESTORE" HJ 
'290 PRINT"SYS"SA+9"F0R EDITOR SAVE/RECAL 
L" GF 

'300 END KN 

'310 DATA 184,80,26,184,80,86,184.80 MI 
'320 DATA 122,184,80,113,176,192,174,221 MF 
'330 DATA 29,221,173,192,189,0,0,0 FP 
'340 DATA 0,40,80,120,160,32,80,193 I A 
■350 DATA 165,248,133,207,32,229,202,162 OE 
■360 DATA 255,32,-155,164,229,200,132,206 MC 
■370 DATA 32,-155,230,206,164,206,196,228 JI 
380 DATA 240,5,202,202,202,208,240,32 MM 
■390 DATA -155, 32, 84, 2fXj, 32, -144, 165, 207 JA 
400 DATA 133,248,230,229,230,230.198,228 JC 
410 DATA 198,231,32,50.202,76,111,199 NH 
■420 DATA 72,165,236,141,-22,165,235,141 FM 
430 DATA -23,24,32,24,192.176,7,32 MP 



440 DATA -144.104,240,16,96,104,173,-21 BM 

450 DATA 208,249,76,40,125,201,5,144 AI 

460 DATA 48,176,242,173,-22,133,236,173 MI 

470 DATA 23.19,133,235,76,92,193,32 DD 

480 DATA 134,3,240,222,32,92,121,76 HD 

490 DATA 90,85,32,-170,164,230,200,232 IP 
5r/j DATA 32, -171, 2f/j, 196, 231, 208, 248, 232 NP 

510 DATA 189,-12,76,12,192,134,195.168 EM 

520 DATA 169,246,162,19,24,121,-24,144 IE 

530 DATA 1,232,164,195,133,195,134,196 CF 

540 DATA 162,26,152,208.22,160,37,136 HJ 

550 DATA 181,224,145,195,202,16,248,162 GB 

560 DATA 13,136,189,84,3,145.195,202 LM 

570 DATA 16,247,96,160.37,136,177,195 LL 

580 DATA 149,224,202,16,248.162,13,136 CN 
590 DATA 177,195,157,84,3,202,16,247 DM 
600 DATA 96,0,999 HB 

DEMO 

100 REM WINDOW DRESSING DEMO GA 

110 G0SUB510 JG 

120 C0L0RBG,15:C0L0R4,15 FA 

130 COLORS, 8 :WIND0W0,0,SW- 1,4: SYS FR,,,, 
,M$;1:SLEEP1:PRINT"[D0WN][RIGHT]AS YOU C 
AN SEE [3"."]" 00 

140 SLEEP1:PRINTEQ$"[RIGHT]THESE ROUTINE 
S[3"."]":SLEEP1:SYS ED, 0,0 PC 

150 C0L0R5,14:WIND0W0,5,SW/2-l,24:SYS FR 
,,,,,M$;2:SYS ED, 1,0 KN 

160 SYS ED,0,1:PRINTEQ$"[RIGHT]DRESS UP 
YOUR WINDOWS, ":SLEEP1 HG 

170 COLOR5,2:WINDOWSW/2,5.SW-l,24:SYS FR 
,,,,,M$;3:SYS ED, 2,0 FO 

180 SYS ED, 0,1 JD 

190 PRINTEQ$"[ RIGHT ]LET YOUR PROGRAMS! 3" 
."]":SLEEP1 DO 

200 PRINTEQ$"[ RIGHT] JUMP FR(M WIND0W[3". 
"]":SLEEP1 HI 

210 SYS ED.1,1:LIST:SYS ED, 1 ,0:SLEEP1 MG 
220 SYS ED, 0.1:PRINTEQ$"[ RIGHT ]T0 WINDOW 
[3"."]":SLEEP1 DA 

230 SYS ED,2,1:LIST:SLEEP2 DG 

240 SYS ED,0,1:PRINTEQ$"[RIGHT]PRINT ANY 
WHERE[3"."]":SLEEP1 PB 

250 SYS ED. 1,1: PRINT" [ DOWN ]fRVS0N]HERE," 
;:SLEEP1:SYS AT,0,12,0, ,EQ$"HERE,"; FC 
260 SLEEP1:PRINT" OR HERE , " : SLEEPl NO 
270 SYS ED,0.1:PRINTEQ$" [RIGHT] AND RETUR 
N." NM 

280 SLEEPS EO 

290 PRINT" [ RVSON ] " ; : C0LOR5 , 2 PB 

300 WIND0W4,2,24,20,1:SYS FR, , , , ,"[3"[RI 
GHT]"]MENU" OF 

310 PRINT : PRINT" [RIGHT]1. RESTART" : PRINT 
"[RIGHT] 2. THE SHADOW" DJ 
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20 PRINT"! RIGHT ]3, THE TUNNEL": PRINT" [R 

IGHT]4. QUIT" JG 

•330 PRINT: PRINT: PRINT" [RIGHT] YOUR CHOICE 

?"; GD 

•340 SYS 52591: REM CRSR ON KP 

■350 GETKEY K$:IF K$<"1" 0RK$>"4"THENPRIN 

T"[3"[UP]'"]":G0T0330 MH 

•360 SYS 52639, 32: RH^ CRSR OFF IL 

'370 PRINTK$ HK 

•380 K=VAL(K$):0NK G0T0110,410,480 LJ 
•390 SLOW: END GO 

•400 REM SIMULATE A "FLOATING" WINDOW WIT 

H SHADOW EM 

•410 WINDOW?, 8, SW-9, 14: PRINT" [ BLACK ][RVSO 

N]"; :AL=PEEK(FA):AH=PEEK{FA+1) IP 

•420 P0KEFA,0:P0KEFA+1,11:REM POINT TO SP 



KG 
BN 
BF 



ACE CHARACTERS 

•430 SYS FR : WINDOWS, 7, SW-8, 13 
■440 C0L0R5,8:PRINT"[RVS0N]";:SYS FR 
•450 POKE FA, AL: POKE FA+1,AH:REM DEFAULT 

FRAME 

•460 SLEEP3:GOT0280 
■470 REM TUNNEL 
•480 C0L0R5,14 
•490 F0RI=0T07:SYS FR:NEXT 
•500 G0T0280 

■ 5 1 BG=0 : SW=RWINDOW( 2) 

■ 520 SA=4864 : FR=SA : AT=SA+3 : CR=SA-«-6 : ED=S A+ 
9:FA=SA+172 OP 

•530 M$=" [ RIGHT ] [RVSON 3 WINDOW" :B1$="[ 9" " 

]" EN 

•540 F0RI=<7r08:P0KE2816+I,ASC(MID$(Bl$,I+ 
1,1)) KH 

•550 NEXT KK 

•560 IFSW=80THENBG=6:FAST OG 

•570 EQ$="[UP]"+CHR$C27)+"Q" BN 

•580 RETURN NE 



KH 
GJ 
DJ 
IK 
IP 
BN 
EC 



GUERILLA 

FROM PAGE 16 



• 10 P0KE53281 , . :P0KE53280, . :PRINTCHR$(8)C 
HR$(142)"[CLEAR1[7"[D0WN]"]"TAB(15)"[PUR 
PLEJGUERILLA" DE 

•20 PRINTTAB(8)"[CYAN][D0WN][D0WN](C)1988 
CLEVE BLAKEMORE" NK 

•30 DIM T(7),B(7),E$(4),D$(103),I$(7) HA 

•40 V=53248:SP=2040:J=56320:S=54272 BJ 

•45 M=90:I=1:N=16:C=.:G=30:U=1:L=7:P=5318 
: AM= . : BM=4 : TH= . : LM=50 MH 

•50 K=21:B=255:W=13:Q=V+39:R=2:E=5:XC=37: 
YC=19:H=3:XS=7:YS=24:2=150:LV=1:DM=103 BH 

• 60 F0RX=2T015 : READA : POKEV+X , A : NEXT : FORX= 
.T0127:READA:P0KE832+X,A:NEXT NB 

•70 F0RX=.T063:P0KE11*64+X, . :POKE15*64+X. 



:NEXT ~cg 

• 80 FORX= . TOl 2STEP3 : POKEl l*64+29+X , 24 : NEX 

T BC 

•90 P0KE11*64+35,255:P0KESP,11:P0KEV,156: 

POKEV+1 , 188 : POKEV+39 , 1 FC 

• U/J FORX=53f^^/jT053223 : READA : POKEX , A : NEXT BB 
•110 F0RX=UT0L:B(X)=.2[UPARR0W]X:NEXT PH 
•120 A$="[RVSON][c Y][3 P][RVS0FF][sEP][U 

P][3"[LEFr]"][RVS0N][sEP][s C][s N][DOWN 
]":E$(.)=" [UP] [DOWN] [DOWN] [LEFT] ":E$( 
1)=" [DOWN] ":E$(2)=" [DOWN] " MJ 

•130 E$(3)=" [UP][LEFT] ":E$(4)=" [UP] [ 
DOWN] ":BL$="[ RVSON] [RED]" PG 

•140 B$="[c 4][RVS0N]":FORX=.TO19:B$=B$+" 
[s 0][s P]":BL$=BL$+CHR$(32):NEXT:C$=RIG 
HT$(B$.39)+"[s 0]" JA 

•150 !$(.)=" [RVSOFF] ":I$(l)="[RVSOFF][c 
G]":I$(2)="[RVS0FF][c H]":I$(3)="[RVS0FF 
][c J]":I$(4)="[RVS0FF][c K]":I$(5)="[RV 
SON][c L]" NM 

•160 I$(5)="[RVS0N][c N]":I$(6)="[RVS0N][ 
c M]":I$(7)="[RVS0N] ":V$="ENEMY DECIMAT 
ED[3"."]F0RTRESS SAVED!!" EJ 

•170 F0RX=.T039:D$=D$+"[s I]":E$=E$+"[s K 
]":NEXT BF 

•180 FORX=.T016:FORA=.T07:D$(X*6+A)=LEFT$ 
(BL$,X+2)+I$CA)+"[RVS0FF]":NEXT:NEXT GD 

■ 190 POKEV+16,64+128:FORX=1T07:POKESP+X,1 
3:P0KEV+39+X.5:NEXT JF 

•200 GOSUB480:GOSUB450:GOSUB460:X=FRE(.) GD 

•210 F0RX=.TO103:SYSP,9,23:PRINTD$(X):NEX 
T IJ 

•220 X=1:P0KEV+K,U:C=PEEK(V+G):C=PEEK(V+G 
):SYS530r/i ND 

•230 REM MAIN LOOP OE 

•240 F=PEEK(J)ANDN:X=X+U+(X=L)*L:IFT(X)TH 
ENT(X)=T(X)-U:IFT(X)=.THENGOSUB290 HO 

•250 C=RNDCU)*M+U:IFC<L+UTHENIFT(C)=.THEM 
T(C)=G-INT(I):POKEV+K,PEEK(V+K)ORB(C) lA 

• 260 C=PEEK(V+G) :ON-(F>, )GOT0240:G0SUB390 

: AM=AM+U BD 

•265 IFAM=LMTHENAM=. :BM=BM-U:SYSP,27+H*BM 

, YS : PRINT" [ BLACK ] "A$ ; : ON-(BM= . )G0T0320 EO 
•270 ON-(C=. )GOT0240:F0RA=UTOL:IF(CANDB(A 

))THENG0SUB340 JI 

•280 NEXT:C=PEEK(V+G):C=PEEK(V+G):G0T0240 LB 
•290 SYSP,RND(U)*XC,RND(U)*H+YC:PRINTE$(R 

ND(U)*E) ; :POKE0+X,W:GOSUB400:G0SUB390 BB 
•300 DM=DM-U:SYSP,9,23:PRINTD$(DM)" ":FOR 

A=.TON: POKEV+G+H , A : NEXT : A=X : IFDMG0T0380 PD 
•310 P0KES+18,129:F0RX=.T0400:P0KES+15,RN 

D(.)*Z:P0KEV+33,XANDG:NEXT:G0SUB450 ID 
• 320 POKEV+21 , . : PRINT" [ CLEAR ] [ 5" [ DOWN ] " ] " 

:PRINTTAB(4)"[c 3] OUR FORTRESS HAS BEEN 

DESTROYED !!" LF 

■330 PRINTTAB(12)"[c 5][3"[DOWN]"]FINAL S 
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CORE: [WHITE]"SC:F0RX=.T07r//j:NEXT:RUN IE 

• 340 POKESP+ A , W+U : POKEQf A , R : SC=SC+Z*LV : SY 
SP,XS,YS:PRINT"[WHITE][RVSOFF]"SC;:M=M+( 
M>L) DJ 

•350 IFI<26THENI=I+.5 EN 

• 360 IFI=10ORI=18ORI=25THENLV=LV+U: P0KE20 
05,48+LV:G0SUBA20 KM 

• 370 TH=TH+U : IFTH=ZTHENP0KEV+21 , . : PRINT" [ 
aEAR][6"[DOWN]"]"TAB(ll)V$:GOSUBA20:GOT 
0330 KF 

•380 G0SUB410:P0KEV+K,PEEK(V+K)AND(B-B(A) 
):POKESP+A,W:POKEQ+A,E:T(A)=.:RETURN MC 

•390 P0KES+8,4:P0KES+11,129:F0RA=.T050:NE 
XT :P0KES+11, 128: RETURN EF 

•4f/j POKES+18,129:F0RA=ZTO.STEP-E:P0KES+l 
5,A:NEXT:P0KES+18,128:RETURN PM 

•410 FORD=.TOZ: NEXT: RETURN MM 

•420 M$="251331421502421502":GOSUB450:POK 
ES+6 , 96 : FORLL= 1T018STEP3 MC 

•430 POKES+l.VAL(MID$(M$,LL.2)):POKES+4,l 
7 : F0RD=1T090*VAL(MID$(M$ , LL+2 , 1 ) ) : NEXT DH 

• 440 POKES+4 , 16 : NEXT : GOSUB450 : GOSUB460 : RE 
TURN PN 

•450 FORLL=STOS+23:POKELL, . :NEXT:P0KES+24 
,15: RETURN GK 

• 460 POKES+6 , 73 : POKES+13, 234 : POKES+20, 234 
: RETURN KH 

•470 REM GAME SCREEN DB 

•480 PRINT"[CLEAR][5"[RIGHT]"][c 8][RVS0N 
][5" "] [WHITE] [c *]" CF 

•490 PRINT"[5"[RIGHT]"][c 8][RVS0N] [RVSO 
FF][3" "][RVSON] [WHITE] [RVSOFF] [GREE 
N][cEP] [cEP] [3"[cEP]"] [c 5][RVS0N] [c 
4][c *][RVS0FF][3" "][c l][RVSON][s P][ 
s 0][s P][s 0][s Pl[s 0][s P][s 0][s P][ 
s 0][s P][c 2][c *]" PI 

•500 PRINT" [5" [RIGHT] "][c 8][RVS0N] [RVSO 
FF][3" "][RVSON] [WHITE] [RVSOFF] [GREEN 
][cEP][cEP][c +][cEP][c +][cEP][c +][cEP 
][c +][c 5][RVS0N] [c 4] [c +][RVSOFF] 
[c l][RVSON][s 0][s P][s 0][s P][s 0][s 
P][s 0][s P][s 0][s P][s 0][c 2] [c *]" LB 

•510 PRINr'[5"[ RIGHT]" ][c 8][RVS0N] [RVSO 
FF][3" "][RVSON] [WHITE] [RVSOFF] [GREE 
N][cEP][c -][c +][cEP][RVSON][c +][RVSOF 
F][c +][RVSON][c +] [RVSOFF] [cEP][c 5][RV 
SON] [c 4] [c 8][3" "][c l][s 0][s P][s 
0][s P][RVS0FF][3" "][RVSON][s P][s 0][ 
3 P][c 2] " AI 

•520 PRINT" [RIGHT] [RIGHT] [c 5i[RVS0N] [9" 
[c S]"] [c 8][c *][c 2][RVS0FF][s M][s V 
][s V][s N][s M][s V][s V][c 5][RVS0N] [ 
c 4] [c 8] [c l][s 0][s P][s 0][s P][s 
0][RVS0FF][3" "][RVS0N][s 0][s P][s P][ 
c 2] " HL 

•530 PRINT" [RIGHT] [RIGHT] [c 5][RVS0N] [6" 
[c S]"][ RVSOFF] [3" "][RVSON] [c 8] [c *] 
[c 2][c I] [c *][sEP] [RVSOFF][s 0][c 5] 



[RVSON] [c 4] [c 8] [c l][s P][s 0][s 
P][s 0][s P][RVS0FF][3" "][RVSON][s P][s 
0][s P][c 2] " 

•540 PRINT"[RIGHT] [RIGHT] [c 5] [RVSON] [6" 

[c S]"] [RVSOFF] [3" "] [RVSON] [c 8] [RVS 

OFF] [c 2][c *] [RVSON] [RVSOFF] [sEP] [c 

l][RVSON][s P][c 4] [c 8] [c l][s P][s 

0][s P][s 0][s P][s 0][s P][s 0][s P][s 

0][s P][s 0][c 2] " 

•550 PRINT" [RIGHT] [RIGHT] [c 5] [RVSON] [6" 
[c S]"] [RVSOFF] [3" "] [RVSON] [c 8] [RVS 
OFF] [c 2] [RVSON] [c H][c L] [RVSOFF] [c 
l][RVSON][s 0][c 4] [c l][s 0][s P][s 
][s P][s 0][s P][s 0][s P][s 0][s P][s 
][s P][s 0][s P][c 2] " 

•560 PRINT"[RIGHT] [RIGHT] [c 5) [RVSON] [9" 
[c S]"] [c 8] [RVSOFF] [c 2] [RVSON] [c 
G][c N][RVSOFF] [c l][RVSON][s P][s 0][ 
s P][s 0][s P][s 0][s P][s 0][s P][s 0][ 
s P][s 0][s P][s 0][s P][s 0][c 2] " 

•570 PRINT"[ RIGHT] [GREEN] [c -][c 5] [RVSON 
] (RVS0FF][3" "][RVS0N][6"[c S]"] [c 8] 
[GREEN] [RVSOFF] [c -] [c 2] [RVSON] [s Q][ 
c L][RVSOFF] [c l][RVS0N][s 0][s P][s 
] [RVSOFF] [3" "] [RVSON] [s 0][s P][s 0][s 
P] [RVSOFF] [3" "] [RVSON] [s P][s 0][s P][c 
2] " 

•580 PRINT"[GREEN][c -][c -][c 5] [RVSON] 
[RVS0FF][3" "][RVS0N][6"[c S]"] [c 8] [ 
GREEN] [RVSOFF] [c -][c -][c 2] [RVSON] [c H 
l[c M][RVSOFF] [c l][RVSON][s P][s 0][s 
P][RVS0FF][3" "][RVS0N][s P][s 0][s P][ 
s 0] [RVSOFF] [3" "] [RVSON] [s 0][s P][s 0] 
[c 2] " 

•590 PRINT"[ GREEN ][c -] [RVSON] [c +][c 5] 
[RVS0FF][3" "] [RVSON] [6"[c S]"] [c 8] [ 
GREEN] [c +] [RVSOFF] [cEP][c 2] [RVSON] [R 
VSOFF] [c l][RVSON][s 0][s P][s 0][RVSO 
FF][3" "][RVSON][s 0][s P][s 0][s P][RVS 
0FF][3" "][RVS0N][s P][s 0][s P][c 2] " 

•600 PRINT"[ GREEN] [c +][c +][c 5] [RVSON] 
[9"[c S]"] [c 8] [GREEN][c +][RVSOFF][c 
+][c 2][RVS0N] [c M][RVSOFF] [GREEN][c 
-][c l][RVSON][s P][s 0][s P][s 0][s P][ 
s 0][s P][s 0][s P][s 0][s P][s 0][s P][ 
s 0][s P][s 0][c 2] " 

•610 PRINT"[ GREEN] [RVSON] [c +] [RVSOFF] [c 
+][c 5][RVS0N] [6"[c S]"] [RVSOFF] [3" "][ 
RVSON] [c 8] [GREEN] [ RVSOFF] [c +] [RVSON 
][c +] [RVSOFF] [c +] [RVSON] [c +] [RVSOFF] [ 
c -][RVSON][c +][c l][s 0][s P][s 0][s P 
][s 0][s P][s 0][s P][s 0][s P][s 0][s P 
][s 0][s P][s 0][s P][c 2] " 

•620 PRINT"[ GREEN] [c +] [RVSON] [c +][c 5] 
[6"[c S]"][ RVSOFF] [3" "][RVSON] [c 8] [ 
GREEN][4"[c +]"][RVSOFF][c +][RVSON][c + 
][c l][s P][s 0][s P][s 0][s P][s 0][s P 
][s 0][s P][s 0][s P][s 0][s P][s 0][s P 
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FA 



CO 



BB 



BD 



00 



KN 



AD 



HN 



IMPHRTA NTI '-^"^''^ °'^ white background are Bug Repellent line codes. Do not enter tliem! Pages 61 and 62 explain these codes 
llTli Un mil I ! and provide other essential information on entering X/ioy.' programs. Refer lo these pages tsefore entering any programs! 



][s 0][c 2] " CO 

630 PRINT" [GREEN] [c +][c +][c 5][RVS0N] 
[6"[c S]"][RVS0FF][3" "][RVSON] [c 8] [ 
GREEN][c +][RVSOFF]tc +]{RVSON][A"[c +]" 
][c l][s 0][s P][s 0][s P][s 0][s P][s 
][s P][s 0][s P][s 0][s P][s 0][s P][s 
][s P][c 2] " CM 

640 PRINT"[c 5]"D$E$B$C$B$C$B$;"[RVS0FF] 
[WHITE IGUERILLA" EC 

650 PRINT"[c 8]SC0RE [WHITE]=[7" "][c 7] 
ATTACK [WHITE]! [RIGHTHc 5]AMM0[c 2]"A$A 
$A$A$; "[HOME]" -.RETURN MK 

660 REM SPRITE LOCATION DATA HG 

670 DATA96,93,72,61,48, 125,96, 158,217,12 
6,17,126,17,78:REM V+16=64+128 U 
680 REM SPRITE DATA CD 

690 DATAl, 252, ,3, 254, ,7, 199,, 7, 56, 128, 6, 
221,128,1,125,. IG 

7f^/j DATA6, 21,, 4, 46, 128, 4, 29, 96, 12, 35, 104 
,28,62,220,60,62,62 AG 

710 DATA124,56,31,124,54,15,12l,45,15,ll 
4,155,239,4,87,239,10,175,222 HA 

720 DATA19, 215, 156, 32, 107, 124, 193, 245, 12 
0,,, ,126,18,15,195,9,23 EM 

730 DATA97, 36, 63, 225, 18. 63, 225, 8, 51, 222, 
1,179,128,7,222,180,15,225 HK 

740 DATAUO, 31, 126, 223, 62, 252, 191, 61, 248 

,95,1,240,95,126,104,95,185,216 FH 
750 DATA223, 85, 183, 190, 147, 110, 136, 16, 22 
1,240,3,187,240,4,117,80,15,250,80,. JE 
760 REM INTERRUPT ROUTINE IG 

770 DATA 120,169,31,141,20,3,169,207,141 
,21,3,169,166,141,17 IN 

780 DATA 3, 169, 207, 141, 18, 3, 88, 96, 173,, 2 
20,41,15.133,253 LB 

790 DATA 169,15,56,229,253,168,185,221,2 
07,240,8,141,168,2,160 AL 

8f/j DATA 0,32,60,207,76,163,207,173,168, 
2,10,170.189,202,207 NJ 

810 DATA 8,152,10,170,40,48,25.240,43,17 
3,220,207,24,125,0 KN 

820 DATA 208, 157,, 208, 144. 31, 169, 1,77. 16 
,208,141,16,208,76 MI 

830 DATA 120, 207, 189., 208, 56, 237, 220, 207 
,157,, 208, 176, 8, 169 AG 

840 DATA 1,77,16,208,141,16,208,173,168, 
2,10,170,232,189,202 II 

850 DATA 207.8,152,10,170,232,40.48.15,2 
40,23,173,220,207,24 FF 

860 DATA 125., 208, 157,, 208, 76, 162, 207, 18 
9,, 208, 56, 237, 220 MP 

870 DATA 207, 157,, 208, 96, 76, 49, 234, 173,, 
220,41,15.133,253 CL 

880 DATA 169,15,56,229,253,168,185.221,2 
07, 168, 169,. 108, 5,0 IN 

890 DATA 32,155,183,138,72,32,155,183,10 
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4,168,24,76,240,255,0 MC 

•900 DATA 0,, 255. 1,255,1, ,1,1. ,1.255, 1,25 

5,0 MB 

•910 DATA 255, 255, 3, ,1,5, ,7, 8, 6, ,3, 2, 4 KF 

TOMB OF HORROR 

f ROM PAOi 48 

BASIC PORTION 

•10 IFX=.THENX=1:L0AD"T0MB.0BJ".8,1 HH 
•20 POKE56,144:POKE55,0:CLR BD 

•30 POKE53280, , :P0KE53281, . :X=RND(-TI):FO 

RX=901TO97O:READA rPOKEX, A : NEXT MJ 
• 40 F0RX=a28T0839 : READA : POKEX , A : NEXT : FORX 

=679T0753 ; READA : POKEX , A : NEXT : GOT0790 AG 
•50 D=RND(U)*G:P0KES+K,U(D):P0KES+7,V(D): 

POKES+G , U( D+K+F) : POKES+G-U , V( D+K+F) DM 
•60 RETURN MK 

•70 VL=FC:ONFC+UGOSUB450,450,460,470,480 DN 
•80 RETURN NO 

• 90 ONFC+UGOSUB500 ,510, 520 , 530 : RETURN LJ 
• 100 0NFC+UG0SUB540 , 550 , 560 : RETURN CL 
•110 PRINT" [ HOME ][ BLACK ][RVSON] +[36" "]/ 



•120 PRINT" [RVS0FF][36"[SS]"][RVS0N] 

•130 PRINT" [RVS0FF][36"[SS]"][RVS0N] 

•140 PRINT" [RVS0FF][36"[SS]"][RVS0N] 

•150 PRINT" [RVS0FF][36"[SS]"][RVSON] 



FG 
AI 
DC 
DM 
FG 



•160 PRINT" [RVS0FF][4"[SS]"]"Z$"[RVS0N] 
([BLACK] [26" "]"Z$")[BLACK][RVS0FF][4"[S 
S]"][RVS0N] "; LB 

•170 PRINT" [RVS0FF][4"[SS]"][RVS0N][SS] 
"Z$" ([ BLACK ][ 24"=" ]"Z$")[ BLACK ][SS][RVS0 
FF][4"[SS]"][RVS0N] "; JF 

• 180 PRINT" [ RVSOFF ] [ 4" [ SS ] " ] [ RVSON ] [ SS ] 
[SS] +[20" "]/ [ SS ][ SS ][ RVSOFF] [ 4" [SS]"] 
[RVSON] "; BJ 

•190 PRINT" [ RVSOFF] [4"[SS]"][ RVSON] [SS] 
[SS] [RVSOFF] [20"[SS]"][ RVSON] [SS][SS 
] [RVSOFF] [4"[SS]"] [RVSON] "; LO 

•2r/j PRINT" [RVSOFF] [ 4" [SS]"] [RVSON ][SS] 
[SS] [RVSOFF] [SS][SS]"Z$" [RVSON] ([BLACK 
] [ 14"=" ]"Z$") [BLACK ] [RVSOFF] [SS ] [SS] [RVS 
ON] [SS][SS][RVS0FF][4"[SS]"][RVS0N] " 
; PP 

•210 PRINT" [RVSOFF] [4"[SS]"] [RVSON] [SS] 
[SS] [RVS0FF][SS][SS][RVS0N][SS]+[12" " 
]/[ SS ][ RVSOFF] [SSi[SS][ RVSON] [SS][SS][ 
RVS0FF][4"[SS]"][RVS0N] "; PH 

• 220 PRINT" [ RVSOFF ] [ 4" [ SS ] " ] [ RVSON ] [ SS ] 
[SS] [ RVSOFF] [ SS ] [SS][ RVSON ][SS] [RVSOF 
F][12"[SS]"][RVS0N] [ SS] [RVSOFF] [SS][SS] 




[RVSON] [SS][SS]rRVS0FF][4"[SS]"][KVS0N 
] "; FI 

•230 PRINT" [RVS0FFK4"[SS]"][ RVSON 1[SS] 
tSS] [RVSOFF][SS] [SS] [RVSON] [SS] [RVSOF 
F ] [ SS 1 "Z$" [ RVSON ] ( [ BLACK ] [ 8"=" ] "Z$" ) [ BLA 
CK][RVSOFF][SS][ RVSON] [SS][RVSOFF][SS][ 
SS][RVSON] [SS][SS][RVS0FF][4"[SS]"][RV 
SON] "; HF 

■240 PRINT" [RVS0FF][4"[SS1"] [RVSON] [SS] 
[SS] [RVSOFF][SS][SS][RVSON][SS] [RVSOF 
F] [ SS ][ RVSON ][SS] "Z$"[RVSOFF][c +][4"[c 
Z]"][s *] [BLACK] [RVSON] [SS] [RVSOFF][SS 
][RVSON] [SS][RVSOFF][SS][SS][RVSON] [S 
S][SS][RVS0FF][4"[SS]"][RVS0N] "; NP 

■250 PRINT" [RVS0FF][4"[SS]"][RVS0N][SS] 
[SS] [RVSOFF][SS][SS][RVSON][SS] [RVSOF 
F] [ SS ][ RVSON ][SS] "Z$"[RVSOFF][ PI] [BLACK 
]f4" "]"Z$"[RVSOFF][c *] [BLACK] [RVSON] [ 
SS][RVSOFF][SS] [RVSON] [SS][RVSOFF][SS][ 
SS] [RVSON] [SS][SS][RVS0FF][4"[SS]"][RV 
SON] "; FE 

•260 PRINT" [RVS0FF][4"[SS]"][ RVSON] [SS] 
[SS] [RVSOFF][SS][SS] [RVSON] [SS] [RVSOF 
F] [ SS ][ RVSON ][SS] "Z$"[RVSOFF] [PI] [BLACK 
][4" "]"Z$"[RVSOFF][c *] [BLACK] [RVSON] [ 
SS][RVSOFF][SS][ RVSON] [SS] [RVSOFF][SS][ 
SS] [RVSON] [SS][SS][RVS0FF][4"[SS]"][RV 
SON] "; EP 

•270 PRINT" [RVS0FF][4"[SS]"][RVS0N][SS] 
[SS] [RVSOFFi[SS][SS][RVSON][SS] [RVSOF 
F] [ SS ] "Z$" [ RVSON ]<[ BLACK] [8" "]"Z$">[BLA 
CK][RVSOFF][SS][ RVSON] [SS][RVSOFF][SS][ 
SS][RVSON] [SS][SS][RVS0FF][4"[SS]"][RV 
SON] "; 

•280 PRINT" [RVS0FF][4"[SS]"] [RVSON] [SS] 
[SS] [RVS0FF][SS][SS][RVS0N][SS]/[12" " 
]+[SS][RVSOFF][SS][SS] [RVSON] [SS][SS][ 
RVS0FF][4"[SS]"] [RVSON] "; 

•290 PRINT" [RVS0FF][4"[SS]"][RVS0N][SS] 
[SS] [RVSOFF][SS][SS]"Z$"[RVSON]<[BLACK 
][I4" "]"Z$">[ BLACK ][RVSOFF][SS][SS][RVS 
ON] [SS][SS][RVS0FF][4"[SS]"J[RVS0N] " 



HB 



JI 



BJ 



[RVS0FF][4"[SS]"] [RVSON] [SS] 
"]+ [SS][SS][RVS0FF][4"[SS]"] 

[RVS0FF][4"[SS]"] [RVSON] [SS] 
"]+[SS][SS][RVS0FF][4"[SS]"][R 



•300 PRINT" 

[SS] /[20" 

[RVSON] " 
•310 PRINT" 

[SS]/[22" 

VSON] "; 
■ 320 PRINT" [ RVSOFF ] [ 4" [ SS ] " ] [ RVSON ] [ SS ] 

"Z$"< [ BLACK ] [ 24" " ] "Z$">[ BLACK ] [ SS ] [ RVSO 

FF][4"[SS]"] [RVSON] "; 
•330 PRINT" [RVS0FF][4"[SS]"]"Z$"[RVS0N] 

<[ BLACK] [26" "] "Z$"> [ BLACK ][ RVSOFF ][ 4" [S 

S]"] [RVSON] "; 
•340 PRINT" /[36" "]+ "; 
■350 PRINTD$B$D$I$(DL(CL,T))TAB(G+H)"[WHI 

TE]"D$(CD*-(CU=G))"[c 3]"; 



IM 



EK 



BP 



MB 
BI 

LG 



360 PRINTTAB(39-LEN(T$(DL(CL,U))))T$(DL( 
CL,U));:SYSRL: RETURN EN 

370 PRINT"[HOME][ RVSOFF] [DOWN] ":FORX=. 
T020: PRINT" ": NEXT: RETURN GC 

380 PRINT"[HOME] [RVSOFF] [7"[D0WN]"]":F0R 
X=.T010:PRINTTAB(8)" ":NEXT:RETURN FN 
390 PRINT" [ HOME ] [ RVSOFF ][!!"[ DOIVN ] " ] " ; TA 
B(13)" [DOWN] [LEFT]" ;:FORX=.TOF: PRINT" [ 
DOWN ] [LEFT]" ;:NEXT: RETURN EH 

400 PRINT"[HOME][13"[DOWN]"]";TAB(16)" [ 
DOWN] [LEFT] [DOWN] [LEFT] ": RETURN CE 
410 PRINT"[HOME][RVS0FF]":FORX=.T021:PRI 
NTTAB(39)CHR$(20)CHR$(32):NEXT: RETURN PN 
420 PRIMT"[ HOME] [RVSOFF] [7" [DOWN]"]": FOR 
X=.T010:PRINTTAB(30)" ": NEXT : RETURN AA 
430 PRINT" [ HOME ] [ 10" [ DOWN ] " ] " : FORX= . T05 : 
PRINTTAB(26)" ": NEXT: RETURN BO 

440 PRINT"[HOME] [RVSOFF] [13"[D0WN]"]";TA 
B(23)" [DOWN][LEFr] [ DOV.'N ] [ LEFT ] ":RETUR 



N 



MM 



:F0 



;F0 



tF 



10 

BP 

PI 

ED 
HJ 



450 PRINT"[H0ME][5"[D0^VN]"] [RVSOFF]"; 
RX=,T017:PRINTTAB(6)W1$:NEXT:RETURN 
460 PRINT"[H0ME][9"[D0WN]"] [RVSOFF]"; 
RX=.T09:PRINTTAB(12)W2$:NEXT:RETURN 
470 PRINT"[H0ME][11"[D0WN]"] [RVSOFF]" 
ORX= . T05 : PRINTTABd 5 )W3$ : NEXT : RETURN 
480 PRINT" [HOME] [13" [DOWN]"] [RVSOFF]" 
0RX=.T0T:PRINTTAB(17)W4$:NEXT: RETURN 
490 RETURN 
500 PRINT"[H0ME][23"[D0WN]"]"TAB(13)S1$; 
: RETURN MP 

510 PRINT"[HOME][20"[DOWN]"]"TAB(15)S2$; 
: RETURN IB 

520 PRINT"[HOME][17"[DOWN]"]"TAB(17)S3$; 
: RETURN JD 

530 PRINT"[H0ME][16"[DOWN]"]"TAB(18)S4$; 
: RETURN IH 

540 PRINT" [ HOME] "TAB(13)EI$: RETURN MG 
550 PRIMT"[HOME][7"[DOWN]"]"TAB(15)E2$:R 
ETURN ON 

560 PRINT"[H0ME][10"[D0WN]"]"TAB(17)E3$: 
RETURN FB 

570 IF(DL(CL,.)ANDB(F+H))=.THEN610 MF 
580 SB=PEEK(V+21):P0KEV+21,.:G0SUB2730:G 
0SUB2510:DL(CL,.)=(DL(CL,.)ANDG) GH 
590 X=INT(RND(U)*10*(DL+U)):C$(1)="Y0U T 
AKE"+STR$(X)+" HP DAMAGE!" :AA=18:N=1 EI 
6f/j LF=LF-X:G0SUB2570:G0SUB3120: F0RX=.T0 
2000 : NEXT : G0SUB2880 : POKEV+2 1 , SB OA 
610 PRINTD$TAB(G+H)"MOVE! " ; :CEM=FNTE( . ) : 
P0KESE,CEM:G0SUB110:PRINTZ$; JA 

620 FC=F:VL=FC:LV=CD-U+F*-(CD=U) :RV=CD+U 
+F*(CD=F) JL 

630 EBM=FNCP(.):TFEBM>,ANDE»1<DETHEN650 JD 
640 FC=FC-U: ON- (FC>~U)GOT0630: RETURN KK 
650 EL=FNCP(LV) :ER=FNCP(RV);IFDL(EBM, .)T 
HEN670 FB 

•660 G0SUB70:FC=FC-U:0NU-(FC<. )G0T0630,71 
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CI 

•670 IFDL(EL, . ) ANDFC<FTHENONFC+UGOSUB370, 

380,390,^00 LJ 

• 680 IFDL( ER , . ) ANDFC<FTHENONFC+UGOSUB410, 

420,A30,440 AO 

•690 FORI>=.TOH:IF(DL(EBM, .)ANDB(D))THENON 

DG0SUB90 , 1 00 , 70 : PRI NTZ$ ; HE 

•7Vj PRINT" [RVSOFF]"; :NEXT:FC=FC-U:IFFC>- 

UTHEN630 LD 

•710 G0SUB720:CSM=FNSW(.):P0KEV+24,(PEER( 

V+24)ANTH5)0RCSM:P0KEV+2l,EL;RETURN ID 
•720 IFFCANDVLTHENVL=VL-U MO 

•730 D=191 :P0KEFNMP(U) ,D:P0KEFNMP(T) ,D:PO 

KEFNMP(H),D:POKEFNMP(F+U),D HK 

•740 EU. :ER=. :P0KEV+21,. :F0RX=VLT0.STEP- 
U:FC=FNCM(X):IFDL(FC,U)=.THEN780 JH 
•750 FC=ABS(DL(FC,U)-U):EL=(ELORSP(X+F)) OJ 

• 760 ^fB=SP( X)-U : FORD=UTOLEN( SB$(X . FC) ) : PO 
KEF^fMP(MB+D),ASC(MID$(SB$(X,FC),D,U)) BC 

•770 POKEBC+SP(X)+D,CS(FC):NEXT HA 
•780 NEXT :SB=EL: RETURN HN 

•790 PRINTCHR$(147)CHR$(8)CHR$(142)"[BLUE 

]STAND BY[4'*."]":G0SUB2900:G0SUB2980 OG 
•800 DIMDL(383,3),B(15),SP(7),SB$(3,I2),D 

$(4),CS(12),L$(6),IC30),M(24),MHC24) OE 
•810 DIMCM$(14),T$(13),I$(30),C$(30),C(30 

),M$(44),LV(2,2),CZ$(2),H(8),SM$(8) KK 
•820 DIMTS(24),U(26).V(26) MN 

•830 FC=. :CL=17:CI>=2:VL=. :EL=. :ER=. :VS=. : 

LF=20:M=, :W=.005:Z=.94:WL=17 LP 

•840 TU388:TGL=16:CSM=. tCEM=192:DE=383:V 

=53248 : SB= . ; RL=828 : SE=:648 : SR=679 PM 
•850 U=1:T=2:H=3:F=4:K=8:G=15:J0Y=56320:D 

L=.:DM=.:AR=.:CU=.:WE=. HU 

• 860 S=54272 : BOV+38 : SS= . : SC= . : CC=55296 : S 
2=959:1=. LM 

•870 D(1)=1:D(2)=16:D(3)==-1:D(4)=-16 DM 

•880 H(.)=1:H(1)=10:H(2)=2:H(3)=2:H(4)=1: 

H(5)=7:H(6)=3:H(7)=13:H(8)=5 DJ 

•890 SP(.)=.:SP(1)=4:SP(2)=6:SP(3)=:7:SP(4 

)=15:SP(5)=48:SP(6)=64:SP(7)=128 DM 

•900 D$(.)=*' ? ":D$(1)="EAST ":D$(2)="S 

0UTH":D$(3)="WEST ":D$(4)="N0RTH" AJ 

•910 SM$(.)="[EP][EP]":F0RX=1T08:SM$(X)=C 

H1$(32)+CHR$(32):NEXT:CR$=CHR$(13) AG 

• 920 FORX= . T038 : W$=W$+CHR$ ( 1 60) : B$=B$+CHR 
$(32):MB$=MB$+"*":NEXT ON 

•930 D$="[HOME][c 8] [RVSOFF]" :F0RX=.T023: 

D$=D$+"[DOWN]":NEXT LB 

•940 W1$=LEFT$(W$,28):W2$=LEFT$(W$,16):W3 

$=LEFr$(W$,10):W4$=LEFT$(W$,6) GP 

•950 SI$="[RVSON] [BLACK] )"+LEFr$(W$, 12)+" 

( ":S2$-"[RVS0N][ BLACK ])"+LEFr$(W$,8)+"("CC 
•960 S3$="[RVS0N][BLACK])"+LEPr$(W$,4)+"( 

":S4$="[RVS0N][BLACK])"+LEPr$(W$,2)+"(" FB 
•970 E1$="[RVS0N] [ BLACK ]>"+LEFT$CW$, 12)+" 

<":E2$="[FVS0N][BLACK]>"+LEFT$(W$,8)+"<" IM 
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980 E3$="[RVS0N][ BLACK ]>"+LEn'$(W$,4)+"< 
":CZ$(.)="[c 4]":CZ$(1)='*[BLUE]":CZ$(2)= 
"[c 2]" 
990 I$(.)=LEFT$(B$,15):T$(.)=LEFr$(B$,13 

) 

1000 DEF FNCP(X)=FC*D(CD)+(CL+D(X)):DEF 

FNSW(X)=(TGL-CSM) 

1010 DEF FNTE(X)=(TL-CEM):DEF FNCM(X)=X* 

D(CD)+CL:DEF FNMP(X)=CEH*256+1016+X 

1020 DEFFNJ(X)=(G-CXANDG)):DEFFNC(X)=(LF 

<K ) *-T+( LF>KANDLF<G ) *- ( F+H ) 

1030 DEFFNCD(X)=CD+CCD=F+U)*F+(CD=. )*-F: 

DEFFNJF(X)=( ( JYAND(G+U) )=. ) 

1040 DEFFNH(A)=(AR+I(AR)*T+LF/K) 

1050 FORX=.T015:B(X)=2[UPARROW]X:NEXT 

1060 FORX=.TODEtREADD:DL(X, .)=D:NEXT:FOR 

X=.T015:READA:P0KEV+X,A;NEXT 

1070 F0RX=1T013:READT$(X) :NEXT:F0RX=.T02 

4:READA:M(X)=A:NEXT 

1080 F0RX=.T012:READCS(X):NEXTX:F0RX=.T0 

24:READTS(X):NEXT 

1090 FORX=.T06:FORA=.T03:SB$(A,X)=CHR$(3 

2+X);NEXTA,X 

1100 F0RX:=7T012:F0RA=.T03:READSB$(A,X):N 

EXTA.X 

1110 F0RX=.T01tSB$(X, .)=CHR$(191)+CHR$(3 

2):NEXT 

1120 FORX=1T030:READI$(X):NEXT:FORX=1T01 

4:READCM$(X):NEXT 

1 1 30 FORX== . T02 : FOR A= . T02 : READLV( X , A ) : NEX 

TA , X : FORX= 1T044 : READM$ ( X ) : NEXT 

1140 J=1:FORD=.TOT:FORX=,TOK-U 

1150 A=INT(RND(U)*96+(D*128+16)) :ON-(DL( 

A, . )=. )G0T01150:DL(A,U)=M( J) :M( J)=A 

1160 MH(J)=J*F*(DfU):J=J+U:NEXT:NEXT:FOR 

X=,T063:P0KE61376+X, . :NEXT 

1170 F0RD=.T0T:F0RX=.T010 

1180 A=INT(RND(U)*96+(D*128+16)):0N-(DL( 

A,.)=.)GCT01180:DL(A,.)=DL(A,.)ORB(7) 

1190 NEXT: NEXT 

12V> F0RX=.T026:A=2703*(2[UPARROW](CX-20 

) /I 2 ) ) : IFA>65535THENA=65535 

1210 U(X)=INT(A/B(K)):V(X)=A-U(X)*BCK):N 

EXT 

1220 DL(WL,T)=U:DL(WL,H)=U:DL(WL+16,T)=1 

0:DL(WL+16,H)=U 

1230 PRINTCHR$( 147)CHR$(14) :P0KEV+21 , . :P 

OKEV+23, 127 : POKEV+29, 15 

1240 P0KEV+17,PEEK(V+17)OR64:GOSUB2890:G 

OSUB610 

1250 SS=144:SC=148:G0SUB2730 

1260 C$CU)=M$(31):B0$="[c 4]":MC$="[WHIT 

E ] " : N=U : G0SUB2540 : G0SUB2S80 : G0SUB3050 : IT 

=IT+10fjO 

1270 JY=PEEK(JOY):J=FNJ(JY):B=DL(CL,U):I 

FB>.THENIFRND(U)+B/50>ZTHENG0SUB1590 

1280 ON-(RND(U)>Z)GOSUB50:ON-(FNJF(J)AND 
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AR>.)G0SUB1630 PN 

• 1290 IFJTHENONJGOSUBl 380 , 1460 , 80, 1490, 80 

,80,80,1500 DK 

•1300 POKEV+K*F,FNCC . ) :LF=LF+W:ON-(TI>IT) 

GOSUB1510:0N-(LF>.)G0T01270 NO 

•1310 J= . : D= . : F0RX=UT0100 : P0KE63488+32*K+ 

RND(U)*K,RND(U)*255+U:NEXT FP 

•1320 FRINT"[BLACK] [CLEAR]" :P0KEV+21,.:G0 

SUB3130:FORX=250T0150STEP-U:SYSSR, . ,240, 

X,.,17,l PN 

•1330 NEXT:FORX=.T07:POKE63488+32*K+X, . :N 

EXT:X=. AB 

•1340 p6kEV+17,PEEK(V+17)AND191 BL 

•1350 C$(1)=M$(43+X):C$(2)="":C$(3)="[WHI 

TE][5" "]P L a Y[3" "]A gain ?[3" "]" FG 
•1360 BO$="[RED]":MC$="[c 3 ] " : N=3 : G0SUB25 

60:G0SUB2520: IFI=UTHENP0KES+24 , . :RUN30 GP 

• 1370 POKESE , 4 : P0KE679 , . : SYS679 DL 
•1380 IFDL(CL+D(CD), .)=.THENGOSUB3120:RET 

URN NA 

•1390 CUCL+D(CD):G0SUB570: RETURN PA 
• 1400 ON-(B> . )GOT080: SB=PEEK( V+21 ) : SS=144 

:SC=148:GOSUB2730 IE 

•1410 GOSUB2710:POKEV+21, . :GOSUB2740:SS=i 

52:SC=156:GOSUB2730 OK 

•1420 GOSUB2710:GOSUB279O:ON-(I=G-U)GOT01 

450 PL 

• 1430 ONIGOSUB1800, 1850, 1930, 1940, 1950, 19 
60, 2020, 2100, 2240, 2320, 2350, 2430, 2480 FL 

•1440 SS=152:SC=156:GOSUB2880:GOT01420 HO 
• 1450 SS=144 : SC=148 : G0SUB2880 : POKEV+21 , SB 

:X=FRE(.):GOSUB50: RETURN HC 

•1460 IFFNJFC . )THEN1400 FN 

•1470 IFDL(CL-D(CD), .)=.THENG0SUB3120:RET 

URN OH 

•1480 CL=CL-D( CD) :GOSUB570: RETURN KB 
•1490 CD=CD-U:CD=FNCD(.):G0SUB5 70: RETURN EL 
•1500 CD=CD+U:CI>=FNCD(.):G0SUB5 70: RETURN EI 

• 1 5 10 D=DL*K+U : J=D+K-U : F0RX=DT0J : 0N-(MH(X 
)=.)G0T01580:A=-U DM 

•1520 IFCL<M(X)-KTHENA=M(X)+D(F) HP 
•1530 IFCL>M(X)+KTHENA=M(X)+D(T) 00 
■1540 IFCL>M(X)ANDCL<M(X)+KTHENA=M(X)+D(U 

) IJ 

• 1550 IFCL<M(X)ANDCL>M(X)-KTHENA=M(X)+D(H 

) JP 

•1560 IFA<.0RA>DETHEN1580 FJ 

•1570 IFDL(A,.)ANDDL(A,U)=.THENDL(A,U)=AB 

S(DL(M(X),U)):DL(M(X),U)=.:MCX)=A JA 
•1580 NEXT:0N-(DL(CL,U)>.)G0SUB3030:G0SUB 

730 : POKEV+2 1 , EL : IT=TI+SZ : RETURN AD 

•1590 IFCU=2f"jTHENRETURN LP 

•1600 IFWETHENB=B*((G-WE)/10) CP 

•1610 LF=LF-B*T:GOSUB3120:FORX=.TOH:WAITV 

+17,128:P0KEV+34,H(X):P0KEV+35,H(X) OD 

• 1620 NEXT : GOSUB2890 : PO!CEV+K*F , FNC( . ) : RET 
URN JN 



1630 0N-(B=.0RCU=20)G0T080:E=CL:DM=FNH( . 
):X=. W 

1640 ON-(MH(X)=.)GOT01790:0N-(E<>M(X))GO 
T01790:MH(X)=MH(X)-DM:GOSUB3120 AO 
1650 FORD=FrOK:WAITV+17,128:POKEV+34.H(D 
):POKEV+35,H(D):NEXT:G0SUB2890 IE 
1660 0N-(MH(X)>.)G0T01790:MH(X)=.:DL(E,U 
)=.:M(.)=, AF 

1670 LV=.:A=-U DH 

1680 A=A+U: FC=E+D( A)*LV:IFFC<.ORFC>DETHE 
N1710 MG 

1690 IFDL(FC,.)=.ORDL(FC,T)THEN1710 MN 
1700 DL(FC,T)=TS(X) :DL(FC,H)=U+INT(-(TS( 
X)<G)*RND(U)*H):G0T01730 JB 

1710 IFA=FTHENA=.:LV=LV+U EA 

1720 G0T01680 BG 

1730 FORX=.T0G:FORD=UT0F m 

1 740 POKEBC+D , X : NEXT : NEXT : POKEV+2 1 , PEEK ( 
V+21)AND240 JF 

1750 GOSUB3090:LF=LF+B CJ 

1760 X=26+RND(U)*5:I(X)=I(X)+INT(RND(U)* 
50*B*(LV+U)) JK 

1770 C$(1)="A "+M$(22+RNDCU)*H)+" "+M$(2 
5+RND(U)*H)+" OF "+I$(X)+"." PB 

1780 B0$=" [ YELLOW] ":MC$=" [WHITE] ••:N=U: GO 
SUB2730 : G0SUB2540 : GOSUB2880 : G0SUB350 : RET 
URN OD 

1790 X=X+U:ON-(X<25)GOT01640: RETURN PE 
1800 IFDL(CL,T)=.THENC$(U)="NOTHING HERE 
! " : N=U : B0$=" [ PURPLE] " :MC$=" [WHITE] " : GOSU 
B2540: RETURN EH 

1810 IFDL(CL,T)>14THEN1830 NJ 

1820 IFI(DL(CL,T))THENC$(U)="YOU HAVE A 
"+I$(DL(CL,T)):N=U:GOSUB2540: RETURN NF 
1830 I(DL(CL,T))=I(DL(CL,T))+DL(CL,H):C$ 
(U)=I$CDL(CL,T))+" TAKEN!" AE 

1840 N=U:BO$="[WHITE]":DL(CL,T)=.:PRINTD 
$I$(.);:GOSUB2540; RETURN CN 

1850 IFDL(CL,T)THENC$(U)="NOT ENOUGH ROO 
M HERE.":N=U:BO$="[PURPLE]":MC$="[WHITE] 
":G0T02540 CB 

1860 G0SUB2580:IFX=-1THENRETURN IP 
1870 G0SUB2740:GOSUB2790:DL(CL,T)=C(I):D 
L(CL,H)=I(C(I)):I(C(I))=. HA 

1880 C$(U)=I$(C(I))+" DROPPED. ":N=U:B0$= 
"[WHITE]":PRINTD$I$(C(I)); IC 

1890 IFAR=C(I)THENAR=. EK 

1900 IFCU=C(I)THENCU=. FG 

1910 IFWE=C(I)THENWE=. DI 

1920 G0SUB2540: RETURN KE 

1930 G0SUB2630:0N-CN=. )GOTO2530:GOSUB274 
0:GOSUB2790:AR=C(I): RETURN OH 

1940 G0SUB2670:0N-(N=. )GOT02530:G0SUB274 
0: G0SUB2790 : CU=C( I ) : RETURN HC 

1950 G0SUB2650:0N-(N=. )G0T02530:G0SUB274 
0:GOSUB2790:WE=C(I):RETURN CO 

1960 IF(DL(CL,.)ANDF)=.THENC$(U)=M$(29): 
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B0$=" [ RED ] " : MC$=" [ YELLOW j " : N'=U : G0T02540 MF 
•1970 IFI(19)=.THENC$(U)=M$(30)+I$(19)+"! 
":BO$="[PURPLR]'*:MC$="[CYAN]":N=U:GOT025 
AO EN 

•1980 IFI(17)=.THENC$(U)=M$(30)+I$(17)+"! 
" : B0$=" [ PURPLE ] " : MC$=" [ c 4 ] " : N=U : G0TO254 
■ JD 

•1990 ON-(CL<>WL)GOT02010:IFI(25)=.THENC$ 
(U)=M$(42):BO$="[PURPLE]":MC$="[WHITE]": 
N=U:GOT02540 NC 

• 2000 PRINTCHR$ ( 147 ) : G0SUB3090 : X=U : G0T0I3 
40 AA 

• 2010 DL=DL-U : CL=CL-1 28 : A=F : D=50: J=T: GOSU 
B3070:GOT02060 KB 

•2020 IF(DL(CL,.)ANDT)=.THENC$(U)=M$(28): 
B0$=" [ RED ] " : MC$=" [ YELLOW] " : N=U : G0T02540 EG 

•2030 IFI(19)=.THENC$(U)=M$(30)+I$(19)+"! 
" : B0$=" [ PURPLE ] " : MC$=" [ CY AN ] " : N=U : GOT025 
40 JB 

•2040 IFI(i7)=.THENC$(U)=M$(30)+I$(17)+"! 
":B0$="[ PURPLE] ":MC$="[c 4]":N=U:G0T0254 
GH 

• 2050 DL=DL+U: CL=CL+128: A=50: D=F: J=-T:G0S 
UB3070 NO 

• 2060 SS=144 : SC=148 : G0SUB2880: Z$=CZ$CDL) : 
G0SUB610:G0SUB2890 PN 

•2070 GOSUB2710:GOSUB273O:GOSUB2740 FI 
■2080 C$(U)=M$(31+DL)rB0$="[c 4]":MC$="[W 

HITEr':N=U:AA=U:SS=152:SC=156:G0SUB2730 JA 
•2090 G0SUB2540: RETURN FN 

•2100 PRINTD$B$D$"[YELLOW][RIGHT]"I$CAR)T 

AB(17)"[RED]HP[YELL0W]"STR$(INT(LF))TAB( 

39-LEN(I$(CU)))I$CCU); LH 

•2110 IFWETHENC$(U)=I$(WE):BO$="[c 6]":MC 

$="[GREEN]":N=U:AA=19;GOSUB2570 NC 

• 2 1 20 G0SUB2580 : IFX=-UTHENGOSUB350 : RETURN BP 
•2130 ONIGOT02140, 2140, 2170, 2170 CN 
•2140 GOSUB2740:GOSUB2790:BO$="[ WHITE]" rC 

$(U)="THE "+I$(C(I))+" IS OF" EN 

•2150 C$(T)=M$(18+I(C(I)))+" WORKMANSHIP. 

":AA=K:N=TtLM=28:SM=20-LM/T FO 

•2160 GOSUB2740:GOSUB2550:GOSUB350:RETURN LC 
•2170 GOSUB2740:GOSUB2790:IFC(I)=16THEN22 

00 BF 

•2180 C$(U)="YOU HAVE"+STR$(I(C(I)))+" "+ 

I$(C(I))+"." PC 

•2190 N=U: B0$=" [ WHITE] ":GOSUB2540:G0SUB35 

0: RETURN GF 

•2200 C$(U)="UNROLLING PARCH>fENT[3"."]":N 

=U:BO$="[ YELLOW ]":MC$="[c 2]":GOSUB2560 NN 
•2210 X=DL*128:J=U:FORA=.T0127STEP16:C$(J 

)="":FORD=.TOG LP 

•2220 C$(J)=C$(J)+SM$(DL(X+A+D,.)ANDG):NE 

XT:C$(J+U)=C$(J):J=J+T FD 

•2230 NEXT:N-J-U:BO$="[c 2]":MC$=CZ$(DL) : 

GOSUB2540:G0SUB350: RETURN PG 

•2240 IFCU=.THENC$(U)="YOU ARE EMPTY HAND 

ED . " ; N=U : B0$=" [ c 8 ] " : MC$=" [ BLUE ] " : GOT025 
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40 

2250 IFCU<21THENC$(U)="N0THING HAPPENS 
:N=U:B0$="tc 4]":MC$="[c 8]'*:G0T02540 MB 
2260 C$(U)=M$(15+(CU-21)):N=U:BO$="[YELL 
OW]":MC$="[c 3]":G0SUB2560 GO 

2270 IFCU=21ANDDL(CUD(CD) , . )=KTHENDL(CL 

+D(CD),.)=U HB 

2280 J=DL(CL+D(CD) .U) : IFCU=22AND( J=KORJ= 
9ORJ=13)THEN2380 FP 

2290 IFCU=23THENCU=.:I(23)=.:I(24)=U IE 
2300 IFCU=24THENI(25)=U:I(24)=.:CU=. ML 
2310 GOSUB2550: RETURN BP 

2320 IFI(18)=.THENC$(U)=M$(34):B0$="[c 7 
] " :MC$=" [ PURPLE ] " : N=U : G0SUB2540 : RETURN NG 
2330 I(18)=I(18)-U:LF=LF+10:C$(U)="Y0UR 
BODY IS FLOODED WITH STRENGTH" t N=U PF 
2340 BO$="[c 7]":MC$="[WHITE]":GOSUB2540 
: RETURN MC 

2350 J=ABS(DL(CL+D(CD) ,U)) :TFJ=.THENC$(U 
)=M$C35):MC$="[YELLOW]":N=U:GOSUB2540:RE 
TURN PF 

2360 IFJ<50RJ=7THENC$(U)="THE IGNORANT B 
RUTE IS SILENT. ":N=U:B0$="tc 7]":G0T0254 
LG 

2370 IFLF<B*100RJ>110RRND(U)<.8THEN2400 KA 
2380 C$(U)=CHR$(34)+M$(14)+CHR$(34):C$(T I 
)="MURMURS THE "+T$(J)+"." IJ 

2390 B0$=" [ PURPLE ] " : MC$=" [ YELLOW ] " : N=T : D 
L(CL+D(CD),U)=-J:GOSUB2540:RETURN DG 
2400 X=(RND(U)*F):C$(U)=CHR$(34)+"I'LL " 
+M$(6+X)+"!!"+CHR$(34) CE 

2410 X=(RND(U)*F):C$(T)=M$(10+X)+" THE " 
+T$(J)+"." AN 

2420 B0$="[ RED] ":MC$="[ WHITE] ":N=T:GOSUB 
2540: RETURN IK 

2430 A=. :FORFC=.TOH:EBM=FNCP( . ) :IFEBM<.0 
REBM>DETHEN2460 LK 

2440 IF(DL(EBM,.)ANDB(7))=.THEN2460 DF 
2450 DL(EBM, .)=DL(EBM, ,)ANDG:GOSUB2510:F 
ORX= . T02000 : NEXT : GOSUB2880 : A=A+U LM 
2460 NEXT:IFA=.THENC$(U)="NO TRAPS AHEAD 
.": N=U : B0$=" [ GREEN ]": MC$=" [ WHITE ]": G0T02 
540 BF 

2470 C$(U)="Y0U AVOID TRAPS.":N=U:B0$="| 
RED]":MC$="[WHITE]":GOT02540 IJ 

2480 A=. :F0RD=UT0F:0NDG0SUB2630, 2650, 267 
, 2690 : IFNTHENA=A+U : G0SUB2740 LC 

2490 NEXT:IFATHENGOSUB2550:RETURN BC 
2500 C$CU)="YOU ARE CARRYING NOTHING. ":B 
0$="[c 7]":MC$="[WHITE]":N=U:GOT02540 LF 
2510 C$(U)=M$(36+(RND(U)*6))+"! !":N=U:BO 
$=" [c 3 ] " :MC$=" [ YELLOW] " : GOSUB2560 : RETUR 
N CN 

2520 C$(1)="YEA":C$(2)="NAY":N=2:AA=18:G 
0SUB2 570 :G0SUB2790: RETURN BB 

2530 C$(U)="YOU HAVE NOTHING TO "+CM$(I) 
+" ! " ; B0$=" [ PURPLE ] " : MC$=" [WHITE ] " : N=U KG 
2540 G0SUB2560:G0SUB2550: RETURN LI 






2550 JY=PEEK(JOY):J=FNJ(JY):ON-(FNJF(.)) 
G0T02550 : WAITJOY ,16,16: RETURN BJ 

2560 AA=11-(N/T) PA 

2570 LM=LEM(C$(U))+F:SM=2ri-(LM/T):GOSUB2 
740: RETURN PE 

2580 N=5:F0RX=UT0N:C$(X)=M$(X):C(X)=X:NE 
XT:AA=U:SM=ll:LM=18:30$="[c 5]":MC$="[c 
5]" HG 

2590 G0SUB2740: GOSUB2790 : IFI=5THENX=-U : R 
ETURN OK 

2600 0NIG0SUB2630, 2650, 2670, 2690 EB 
2610 TFN=.THEMC$(U)="YOU HAVE NO "+C$(I) 
+" . " : N=U : G0SUB2540 : X=-U : RETURN HG 
2620 X=U: RETURN GJ 

2630 N=. :FORX=UTOK+U:IFI(X)THENN=N+U:C$( 
N)=I$(X):C(N)=X JK 

2640 NEXT:AA=U:SM=T:LM=18:B0$="[c 2]":MC 
$="[c 3]": RETURN JC 

2650 N=. :F0RX=ir/r014:IFI(X)THENN=N+U:C$( 
N)=I$(X):C(N)=X MB 

2660 NEXT:AA=14:SM=U:LM=18:B0$="[c 6]":M 
C$="[ GREEN]": RETURN CD 

2670 N=. :F0RX=15T024:IFI(X)THENN=N+U:C$( 
N)=I$(X):C(N)=X ON 

2680 NEXT:AA=U:SM=21:LM=18:B0$="[c 4]":M 
C$-="[c 5]": RETURN EP 

2690 N=. :F0RX=25T030:IFI(X)THENN=N+U:C$( 
N)=I$(X):C(N)=X BL 

2700 NEXT : AA=14 : SM=22 : LM=1 7 : B0$=" [YELLOW 
]":MC$="[ PURPLE]": RETURN J J 

2710 N=14:F0RX=UT0N:C$(X)=CM$(X) :C(X)=X: 
NEXT:AA=T:SM=12:LM=16 AP 

2720 BO$="[BLUE]":MC$="[c 7]": RETURN LG 
2730 SYS901,CEM*256,CEM*256+SZ,SS*B(K):S 
YS901,CC,CC+SZ,SC*B(K): RETURN AB 

2740 PRINTCHR$(19);B0$; BH 

2750 F0RI=UTOAA:PRINT:NEXT:PRINTrAB(SM)L 
EFr$ ( MB$ , LM ) : FOR I=UT0N+T AM 

2760 PRINTTAB(3M)"*"LEFT$(B$,LM-T)"*":NE 
XT:PRINTTAB(SM)LEFT$(MB$,LM) OM 

2770 PRINTCHR$(19) ;MC$"[IX)WN]":FORI=UTOA 
A: PRINT: NEXT IF 

2780 FORI=UTON : PRINTTAB(SM+T) ; " [RVSOFF]" 
;C$( I):: NEXT: RETURN AH 

2790 JY=PEEK( JOY) : J=FNJ(JY) :ON-(FNJF( . )) 
G0T02790:PRINTCHR$(19) JE 

2800 FORI=UTOAA:PRINT:NEXT:PRINT:I=U IF 
2810 PRIN'rrAB(SM+T);"[WHITE]";C$(I) KF 
2820 JY=PEEKC JOY) : J=FNJ( JY) : IFFNJF( . )THE 
NG0SUB3080 : RETURN LK 

2830 IFJ<>UANnj<>TTHEN2820 PC 

2840 PRINT"[UP]"rTAB(SM+T);MC$;C$(I) EH 
2850 IF(J=T)ANDI<NTHENI=I+U:GOT02810 NK 
2860 IFJ=UANDI>UTHENPRINT"[UP][UP]"; :I=I 
-U:G0T028I0 PF 

2870 PRINT" [ UP ] " ; : GOT02810 GL 

2880 SYS901,SS*B(K),SS*B(K)+SZ,CEM*256:S 
YS901,SC*B(K),SC*B(K)+SZ,CC:RETURN PK 



2890 P0KEV+34,LV(DL,.):P0KEV+35,LV(DL,1) 
:P0KEV+36,LV(DL,2) : Z$=CZ$(DL) : RETURN FG 
2900 P0KE56333 , 1 27 : POKEl , 51 : SYS901 , 53248 
,55296, 61440: SYS901, 53248, 55296, 63488 LK 
2910 POKEl, 55 :P0KE56333, 129 FN 

2920 GOSUB2960 : F0RX= . T07 : READA : P0KE61 440 
+87*8+X,A:NEXT NF 

2930 P0KE56578 , PEEK( 56578)OR3 : P0KE56576 , 
PEEK ( 56576 )AND252 CK 

2940 P0KE53272,(PEEK(53272)AND15):P0KE64 
8,196:PRINTCHR$(147):?0KE648,192 KG 
2950 POKE53272,(PEEK(53272)AND240)OR12:R 
ETURN KG 

2960 READA :IFA=-1THENRETURN DM 

2970 F0RX=.T07:READD:P0KE63488+A*8+X,D:N 
EXT:G0T02960 KE 

2980 PRINT" [aEAR] [RVSOFF] [WHITE]A H 

Y! MAGAZINE [c 4]PRESENTS[6"[ 
DOWN]"]" PO 

2990 PRINTTAB(7)"[BLUE]T M B[3" "]0 F[ 
3" "]H R R R[8"[D0WN]"]" CH 

3000 PRINTTAB(5)"[c 2][D0\vfN]THE ULTIMATE 

[WHITE]3-D [c 2JADVENTURE GAME! [DOWN]" MM 
3010 PRINTTAB(ll)"[c 5] JOYSTICK [c 2]IN 
PORT TW0[D0WN]" PC 

3020 PRINTTAB(6)"(C)1988 [c 5]CLEVELAND 
M. BLAKEM0RE[D0WN]": RETURN PF 

3030 G0SUB3130 : POKES+5 , K : POKES+6 , 255 : POK 
ES+F , 23 : A=K : D=F : F0RX=UT030 : POKES+U , A DC 
3040 POKES+G , D : D=D* 1 . 01 : A= A+U : NEXT : POKES 
+6 , G : G0SUB3050 : G0SUB350 : RETURN DD 
3050 G0SUB31 30 : POKES+1 2 , F : POKES+19 , F : POK 
ES+13,241 MA 

3060 POKES+20 , 241 : POKES+1 1,17: POKES+1 8 , 1 
7 :G0SUB50: RETURN FL 

3070 F0RX=ATODSTEPJ: SYSSR, . ,240,X, .,17,1 
5: NEXT :G0SUB3050; RETURN JG 

3080 SYSSR , . , 240, 34 , 75 , 17 , 5 : G0SUB3050: RE 
TURN GB 

3090 A$="251331421 502421 502" :F0RX=UT0LEN 
(A$)STEPH HB 

3100 SYSSR, . ,240, VAL(MID$(A$,X,T) ) , . ,33, 
10*VAL(MID$(A$,X+T,U)):NEXT CO 

3110 G0SUB3050: RETURN EG 

3120 SYSSR,., 240, F.F, 129, F:GOSUB3050:RET 
URN HB 

31 30 POKES+24 , . : FORRV= .T024 : POKES+RV , . : P 
0KES+24,G: NEXT: RETURN DP 

3140 DATA32,253, 174,32, 138,173,32,247 AI 
3150 DATA183, 132, 193, 133, 194,32,253, 174 JF 
3160 DATA32,138, 173,32,247,183, 132,195 PC 
3170 DATA133,196,32,253,174,32,138,173 DB 
3180 DATA32,247, 183,160, ,177,193,145 PP 
3190 DATA20, 165, 194, 197, 196, 208,6, 165 FA 
3200 DATA193, 197, 195,240,15,230,20.208 LF 
3210 DATA2, 230, 21, 230, 193, 208, 2, 230 ON 
3220 DATA194, 152, 240, 225,96, 234 IL 
3230 DATA162,25,181,217,9,128,149,217,20 
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2,16,247,96 

3240 DATA32, 230, 2, 169, 15, 141, 24, 212, 32, 2 
41,183,142,5,212,32,241,183,142 FD 
3250 DATA6, 212. 32, 241, 183, 142, 1,212, 32, 2 
41, 183, 142,, 212, 32, 241, 183, 142 OE 
3260 DATA4, 212, 32, 241, 183, 134, 2, 162, 10,1 
60,255,136,208,253,202,208,248,198 GL 
3270 DATA2, 165, 2, 208, 240, 32, 230, 2, 96, 160 
,24, 169,, 153, 24, 212, 136, 208, 250, 96,0 OM 
3280 DATAO,,,, 248, 240, 232, 216, 184 FK 
255,165,165,165,255,165,165, 



31,31,31.31,31,31,31.31 

248 , 248 , 248 , 248 , 248 , 248 , 248 , 

,,,31,15,23,27,29 



,1,3,7,15,31,63,127 

255,, 255, 255, 255, 255,, 255 

128,64,32,16,8,4,2,1 

,,,255,255,255,255,255 

1,2,4,8,16,32,64,128 

255,254,252,248,240,224,192, 

255 

255,127,63,31,15,7,3,1,-1 
126,126,78,78,60,. 



ft>ti>>tif>i< 



1.1,1, 1,1,1, ,1.1, ,1,1.1,. 



3290 DATA28. 

255 

3300 DATA30. 

3310 DATA31, 

248 

3320 DATA38, 

3330 DATA40, 

3340 DATA41, 

3350 DATA42, 

3360 DATA43, 

3370 DATA45, 

3380 DATA47, 

3390 DATA60, 

128 

3400 DATA61, 

3410 DATA62, 

3420 DATAO, 60. 

3430 DATA 

3440 DATA 

3450 DATA 

3460 DATA 

3470 DATA 

3480 DATA 

3490 DATA 

3500 DATA 

3510 DATA 

3520 DATA 

3530 DATA 

3540 DATA 

3550 DATA 

3560 DATA 

3570 DATA 

3580 DATA 

3590 DATA 

3600 DATA 

3610 DATA 

3620 DATA 

3630 DATA 

3640 DATA 

3650 DATA 

3660 DATA 

3670 DATA160, 194, 160, 152, 137, 110, 185, 110 

,170,170.170,129.172,150,172,160 HI 

3680 DATASTIRGES, GIANT SPIDER. CONSTRICTO 

R, GRAVE RAT,DROW ELF, HOBGOBLIN, FUNGUS OP 

3690 DATALICH PALADIN, SPECTER, REVENANT.W 

YVERN. GUARDIAN NAGA, DEMON KING IJ 

3700 DATA 1,1,2,2,3,3,4,4,5,6,6,7,7,8,8, 

78 AHOri 



OM 
FD 

OM 
EH 
,128,192,224,240,248,252,254 CA 

DC 

BG 
CI 

HF 
NE 

BE 
CJ 
HA 
GB 
PA 
ML 
PN 
KK 
IG 
KM 
00 
DO 
GA 
PJ 
GB 
JE 
JF 
PD 
FJ 
KO 
JN 
KM 
PL 
MO 
DB 
lA 
AC 
NL 






1,1, ,1,1, 1,1,1, ,1,1, 1,1,. 

■•■»»-l-»f-'-ii-l-»it'l-it»li» 

liljilfliljltliiltlflilf* 

l,i,l,i,,l. .1,1.1. ,1,1,. 
,,l,,l,X,i,l,,X,,,^,. 






1»8,1,1,1,,1,,1,1,8,1,1,. 

,l,,,i,X,i.,,0,.l..X,. 
i,i,o,x,l,, 1,1,1, ,1,1, If. 

>l»»»l»l»>l»>»l»>lj» 
,8, 1,1,1,,, 1,1, 1,1,, 4,. 



»i»»»»»f»»t» 



3740 DATA "12","12","0","0","A687","45", 



,11 itqit itQii 



OE 



9,10,10,10,10,11,11,11,12,13 KH 

3710 DATA 0,, 5. 9, 11, 2, 5,. 13, 11, 1,5,0 PF 

3720 DATA 18,18,17,2,15,21,19,18,16,3,6, 
11,18,4,5,22,8,12,7,13,14,20,18,9,23 MC 

3730 DATA "()","()","'",""',"+,","+,","* 

tt tt^ll II lit II /ll tt II It II pr 

n "12" "'"'" 
itoii Hon ii>'_v9i( II 

3750 DATA DAGGER, HAND AXE, LANCE, MORNING 
STAR, SCIMITAR. BROADSWORD LK 

3760 DATA WAR HAMMER, DRAGONSLAYER,EXCALI 
BUR, BUCKLER, LEATHER JERKIN, CHAINMAIL DD 
3770 DATAIRON PLATE, MITHRIL PLATE, COMPAS 
S, SCROLL, STEEL HOOK, PINTS OF ELIXIR A J 
3780 DATA COIL OF ROPE, BLACK CLOAK, MITHR 
IL RING. HOLY SYMBOL, LUMP OF COAL MC 
3790 DATA LUMP OF IRON, ALCHEMY STONE, GEM 
S.JEWELS.GOLD, SILVER, RARE SPICES JJ 
3800 DATA TAKE, DROP, LEFT HAND, RIGHT HAND 
, ARMOR . ASCEND , DESCEND, EXAMINE , INCANT PB 
3810 DATA QUAFF. HAIL, SEARCH, INVENTORY, EX 
IT MENU ON 

3820 DATA 15,12,11,3,14,6,10,8.9 HN 
3830 DATA WEAPON, ARMOR, SPECIFIC ITEM,TRE 
ASURE,EXIT MENU, KNOCK YOU SILLY BH 
3840 DATA BASH YOUR BRAINS IN, GRIND YOU 
TO DOGMEAT.TEAR YOU TO RIBBONS KC 
3850 DATA GROWLS, BELLOWS, BARKS, ROARS, "PA 
SS BY, KNIGHT ERRANT" NM 

3860 DATA A SPRAY OF WHITE LIGHT, A CHORU 
S OF ANGELIC VOICES OK 

3870 DATA IT TRANSFORMS IN YOUR HAND!, A 
BLAST OF SPARKS.. CHECK INVENTORY AN 
3880 DATA COMMON, GOOD. EXCELLENT, PRECIOUS 
, GLITTERING , FABULOUS , CACHE , CHEST , CRATE KO 
3890 DATA NO SHAFT LEADING DOWN HERE, NO 
SHAFT LEADING UP HERE JG 

3900 DATA"YOU DON'T HAVE THE ",THE CATAC 
OMBS,THE SEPULCHRE LD 

3910 DATA THE BARROW , YOU ' RE OUT OF HEALI 
NG ELIXIR, YOUR VOICE ECHOES EMPTILY CP 
3920 DATA POISON DARTS, TRIPWIRE, BEAR TRA 
P, SPIKED PITFALL.TRAPDOOR, SNARE NOOSE HK 
3930 DATA YOU DO NOT HAVE THE ALCHEMY ST 
ONE!,T HOU ART SLAIN! HF 
3940 DATATHOU HAST CONQUERED THE TOMB! BI 
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A8 


2E 


FF 


74 


5F 


7E 


FA 


5F 


OB 


CD50' 


81 


FA 


5F 


BD 


FA 


2F 


FF 


F4 


09 


CD58: 


14 


FF 


28 


OB 


00 


DO 


04 


FF 


74 


CD60; 


20 


03 


81 


CO 


02 


E7 


40 


03 


F2 


CD68: 


99 


CO 


03 


DB 


00 


02 


BD 


40 


62 


CD70 


02 


DB 


40 


03 


BD 


CO 


02 


DB 


ED 


CD78: 


40 


02 


BD 


40 


03 


DB 


CO 


00 


58 


CD80' 


03 


FF 


CO 


03 


FF 


CO 


03 


DB 


E6 


CD88: 


CO 


03 


BD 


CO 


02 


DB 


40 


02 


EA 


CD90: 


BD 


40 


03 


DB 


00 


03 


BD 


CO 


AF 


CD98: 


03 


DB 


CO 


03 


DB 


CO 


02 


BD 


97 


) AHO 


rt 



















40 02 DB 40 03 BD 00 03 83 
DB CO 02 BD 40 03 DB 00 E4 

02 BD 40 02 DB 40 03 E7 B9 
CO 03 FF CO 03 FF CO 01 02 
7F 00 00 FE 80 00 FB 40 FB 
00 F3 20 00 E6 DO 00 FD 92 
A8 00 EB D4 00 FB EA 00 21 
07 EA 00 CF EA 00 DF DA 40 
00 FF B4 00 FF 68 00 00 FD 
DO 00 FD AO 00 03 40 00 9B 
FO 80 00 FB 00 00 FA 00 65 
00 D4 00 00 D4 00 00 DO 7F 
00 00 FE 00 01 7F 00 02 81 
DF 00 04 CF 00 OB 67 00 2E 
15 BF 00 2B D7 00 57 DF IF 
00 57 EO 00 57 F3 00 5B F6 
FB 00 2D FF 00 16 FF 00 5F 
OB 00 00 05 BF 00 02 CO BA 

00 01 3F 00 00 DF 00 00 50 
5F 00 00 2B 00 00 2B DC OA 
10 00 70 3E 00 F8 3F 6D BO 
F8 3F C7 F8 3F FF F8 3B B4 
BB B8 31 93 18 23 6D 08 FA 
07 A9 EO OD BA EO OC 02 61 
60 OE 7D CO 07 FA 80 01 90 
BA 80 00 FD 40 00 EE 00 DO 

01 C7 00 01 03 80 00 03 42 
80 00 03 00 03 42 CO 00 C2 
E3 FF DE El F5 C6 01 FA 9E 
FF BA F5 C7 7F 75 41 05 3C 
BA CO 04 BF 00 09 7F FO OA 

00 FO FO 01 EO 70 03 00 90 
FO 03 CO FO 03 CO EO 01 EB 

01 00 01 03 80 01 03 80 B5 
01 03 80 03 01 CO 03 01 40 
EO 07 CI FO ID 22 50 00 EE 
60 00 10 FO 00 IE F8 00 45 
3F F8 00 3F FC 06 7F EE 72 
83 7F ED 83 AF ED C3 AF 56 
ED FF AF EF 7E EF F7 30 09 
DF 73 99 8E 22 FF 44 OC CE 
EB 30 IF 6B 78 7F BE F8 3F 
77 DD F8 E5 E3 88 02 FF 84 
5C 03 18 CE El FF 8E 00 70 
OF FO FE OF EO FE OF CO BD 
7E OF CO 7E IF 80 3E IF Dl 
00 3E IF 00 7E IF 00 FO 08 
3F 00 F8 3F 01 F8 3F 01 09 
FO IF 01 FO IF 03 EO OF 34 

03 EO OF 47 00 07 87 CO 7 2 
03 87 CO 03 87 80 07 87 15 
CO OA 07 60 14 8A 90 FC 57 
7F BF 7E FB CO EF FB F7 9E 
EF FB F7 EF FD FF EF F6 01 
OC IF F7 FF EF F3 FO 6F 03 
FO 7B AF E3 B7 E7 EF D7 BF 
37 FF B5 3F FO B4 9F 79 57 
5A EF 31 39 EO 01 FF EO DF 




CF70: 03 
CF78: F8 
CF80: 07 
CF88: 30 
CF90; 
CF98! 
CFAO; 
CFA8: 
CFBO: 



FD 

FF 
BF 
BB 
FF 



FF EO 
07 El 
80 00 
3F FO 
CO FF 
DD FF 
FF BD 
C3 FF 
IB FF 



03 FF 
FC OF 
OF EO 
EO 7F 

FD CO 
FF DE 
9F FF 
CB FF 
FE 15 



FO 03 
EO FE 
00 IF 
F9 CO 

FF DD 
FF FF 
BB BF 
FF 93 
FF 7C 



FF- 4B 
FC 43 
FO 08 
FF 04 

EF DB 
BE 14 
FF 09 

FF 87 
3E 9A 



CFB8: 3D 

CFCO: 00 

CFC8: F8 

CFDOi 

CFD8; 

CFEO; 

CFE8! 

CFFO; 

CFF8: 



BF 

FF 
FF 
DD 
FF 
3E 



38 
01 

07 
FF 
BB 
F9 
FF 
D8 
BB 



3F 
EO 
OF 
03 
FF 
BD 
FF 
FF 
FC 



DD 10 
00 07 
FC 03 
BF FF 
FF 7B 
FF Fl 
D3 FF 
FF A8 
IC F7 



IF EF 
FO OC 
9F FE 
F7 BB 

FF FD 
DD FF 
FF C9 
7F BC 
F8 08 



FC 67 
OF B5 
03 79 
FF 07 
7D 8B 
C3 2C 
FF 64 
7C 2B 
FC 02 



SCUTTLEBUTT 

Continued from page 12 

plus free shipping. 

P.A.V.Y. Software, 314-527-4505 (see 
address list, page 12). 

Al TYPING TUTOR 

Ma\is Beacon Teaches Typing by use 
of artificial inteiligence, checking the 
student's progress every step of the way 
and tailoring an individualized course 
of study. Mistakes are explained in con- 
versational sentences, rather than by 
bleeps and bells. Customized practice 
lessons include literary quotes, riddles, 
and fects from the Guinness Book of 
World Records. Other features are a 
Road Racer typing game, and musical 
"tempo typing" with onscreen metro- 
nome. Over 20 different graphs display 
the student's progress. $39.95 for the 
C-64; $44.95 for the Amiga. 




\:mmm 




A practice screen from Mavis Beacon. 
READER SERVICE NO. ITS 

The Software Toolworks. 818-907- 
6789 (see address list, page 12). 

UNSILINCED 

MicroProse's Silent Service is again 
on sale in West Germany after a gov- 
ernment agency in Bonn rescinded a 
14-month old prohibition. The WWn 
submarine simulation had been judged 



potentiaDy harmful to youth. But Mi- 
croProse called into question the agen- 
cy's criteria for determining the prod- 
uct harmful, and contended that ban- 
ning sales to youth effectively baiuied 
sales to adults too, since the product 
could under those circumstances not be 
advertised, or sold except in stores with 
adults-only entrances. The ban was 
lifted less than 24 houis before a sched- 
uled hearing. 

With the matter settled, there's little 
need for editorializing -but we applaud 
the West German government for over- 
turning its earlier decision. The events 
of 50 years ago are understandably ncx 
a source of national pride for modem- 
day Germans. But there's more to be 
gained by studying and understanding 
the past than by attempting to strike it 
from the record. 

MicnaProse, 301-771-1151 (see address 
list, page 12). 



REVIEWS 

Continued ftvm page 56 

tem that would not require a customer 
to wait while you swapped disks and 
entered most information twice. 

With those caveats, w^Tl go on to s^ 
that the documentation, though slight, 
is adequate, and that most people 
should find the system easy to use. 
Much of this is due to onscreen 
prompts and messages that will lead 
you through each step of the transac- 
tion, many of them highlighted by 
flashing graphics that are designed to 
recapture wandering attention spans. 

System requirements for using TI- 
SAR 725— with no deviations tolerated 
-are a C-128 or C-128D, a 1571 drive, 
and an 80-column monitor with color 
preferred. All disks in the system are 
copyable so that you can keep originals 
in a safe place, and each program has 
a "disk-doctor" to help retrieve infor- 
mation lost due to accidents. 

CW Data Labs, 1632 NapHe Avenue, 



Philadelphia, PA 19111. -frwn Bobo 

WARPSPEEDl 

GnenMWnre 
Commodore 64/128 
Cartridge; $49.95 

The Commodore 64/128 has many 
virtues. Processing speed is not among 
them. Once, a computer magazine even 
printed a list of things for Commodore 
users to do while waiting for a program 
to load firom disk. 

Several manufacturers have attemp- 
ted to address this annoying shortcom- 
ing with "speed up" cartridges. Mach-5 
and Mach-128 (Access) and Fast Load 
(Epyx) are probably the best known. 

Now Cinemaware has entered the 
field with what may prove to be the 
most powerful and versatile accelera- 
tor cart on the market. Though the 
company earned its reputation with en- 
tertainment products like Defender of 
the Cwvm and King of Chicago, skep- 
tics will quickly become converts once 
they try this amazing booster box. 



Like all existing accelerator linits, 
Wbrpspeed'. plugs into the Commo- 
dore's cartridge slot. It has a mode 
switch to select cither 64 or 128 and 
a recessed reset button. 

Wtrpspeed! conveniently supports 
the Fast Load command strucmre, in- 
cluding the two-key (RUN STOP and 
COMMODORE) combination, which 
elinunates typing information to load 
a program. It loads, saves, and formats 
disks up to 10 times fester than nor- 
mal. A few disks, like the Quantum- 
Link terminal program, won't load with 
mirpspeed!, but most do. 

The copy features of this menu-driv- 
en cartridge arc even more impressive. 
It duplicates disks and files up to 40 
times faster. The user can even pick 
several files from the same disk and 
copy or scrateh them in one operation. 

WxTpspeed! supports both double- 
and single-sided drives, including the 
1581 and MSD units. It copies files be- 
tween single- and double-sided disks 
and enables the 1571 to fiinction in dou- 
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ble-sided mode on the C-64. 

Cinemaware's cartridge is also 
packed with goodies for programmers 
and "serious' users. Wirpspeed! boasts 
its own mini-assembler and built-in 
ra^hine language monitor. These func- 
tions, which work in disk drive mem- 
ory, include the ability to "smart move' 
code up and down in RAM. The cart- 
ridge allows relocated loads and saves, 
verifies disk files ftom inside the mon- 
itor, can redirect output to the printer. 



loads/saves disassembles under ROMs 
and I/O (SdOOO), and incorporates an 
extended DOS vredge. 

The machine language monitor and 
mini-assembler inter&ce with the sec- 
tor editor also contained in Vtbrpspeed!. 
It edits in hex or normal ASCII text 
and traces directory and file track and 
sector links. 

That may sound like a lot of features 
in a small package, but these are only 
the high spots. Mrpspeed! has over 30 



tools for casual and advanced users. 
Alien Technologies, a British-based de- 
velopment company, has clearly tried 
to create the ultimate accelerator cart- 
ridge. Future products may topple the 
new king of the speed carts from its 
throne, but right now, ^rpspeed! is 
an indispensible aid for every Commo- 
dore computer owner. 

Cinemaware, 4165 Thousand Oaks 
Blvd., WesUake Village, CA 91362 
(phone: 805-495-6515). -Amie Katz 



TIPS AHOYf 

Continued from page 44 

•110 POKE R,255-PEEK(R):NEXT 

•120 POKE 4588,56:GHAR,0,0,"[c T][c I][c 

P][c S][SS][c A][c H][c 0][c Y][cEP]" 
•130 POKE 2604, 30: WINDOW 0,0,39,24,1 
•140 FOR A=160 TO 191:X$=X$+CHR$(A):NEXT 
•150 SYS DEC("CC6C"),,18,4:PRINT X$:A=179 

l-l-RND(O) 
•160 CHAR ,4,2,X$:BOX 1,30-B,30-B,289+B,9 

8+B 
•170 A=A-l-l:X=SIN(A/2)*1.9+2:Y=C0S(A/[PIl) 

*1. 9-1-2 
•180 CIRCLE 1,91,164,X,Y.,,,30:CHAR ,0,20 

t! , tl 

•190 CHAR ,4-i-(AANB31),4+(7ANDA/32),V' 
•200 CIRCLE 0,91,164,X,Y,,,,30 
•210 GET A$:IF A$="" THEN 170 
• 220 F0RA=1 4592T014599 : POKEA , : NEXT 
•230 FOR A=0 TO 13:CHAR ,0,A,"[40" "]":NE 
XT 
•240 GRAPHICO:LIST 

PROORAJM PAUSES 

Most of us have heard of and used program pausers. With 
the press of a key, the list or execution of a program is 
stopped in its binary tracks, until another key is pressed. 
Program Pauser takes this a step forward. 

Load Program Pauser and change the variable PSWD$ 
to a secret code. (The default is "AHOY!") Run the pro- 
gram. Then, when you wish to pause your 128, press CON- 
TROL and the up arrow key. The computer will pause. To 
restart the computer on its meny way, press RETURN, the 



secret code, and RETURN. 



-Shawn K. Smith 
Bronx, NY 



•100 REM PROGRAM PAUSER — SHAWN K. SMITH 
•110 F0Rrt6912T06999:READY:P0KED,Y:NEXT 
•120 PSWD$="AH0Y!":L=LEN(PSWD$)-1 
• 130 P0KE6955.L:P0KE6976,L:F0RD=DT0DfL 
•140 POKED, ASC(MID$(PSWD$,L+1-P,1)) 
•150 P=P+1: NEXT: END 

•2% DATA 169,023,141,060,003,169,027,141 
•210 DATA 061,003,096,169,173,162,198,141 
•220 DATA 060,003,142,061,003,096,234,201 
•230 DATA 094,240,003,076,173,198,032,011 
•240 DATA 027,173,004,010,041,254,141,004 
■250 DATA 010,234,160,002,132,251,032,228 
•260 DATA 255,240,251,201,013,240,243,164 
•270 DATA 251,153,093,027,136,016,237,160 
•280 DATA 002,185,088,027,217,093,027,208 
•290 DATA 225,136,016,245,173,004,010,009 
•300 DATA 001, 141, Ofj4, 010, 076, 000, 027, 234 

PRETZEL 

Here's a quick and easy demo ctfthe power of C-128 graph- 
ics and basic trigonometry. Try changing COLOR2 and 
COLOR3, increment of "P", draw coords, and trig formu- 
lae. Add a "DRAWl. . ," statement fbr a thind color. Or Istack" 
drawings by changing "GRAPHIC3,r to •'GRAPHIC3,0" 
and changing other aspects after your first run. The possi- 
bilities arc truly endless.... -William D. Wolfe 

Pittsburgh, PA 

10 WIDTH2 : COLORO , 1 : C0L0R4 , 1 • GRAPHICS , 1 : D 
0: P=P-H . 01 : X=60*C0S ( P*3)+68 : Y=60*C0S ( P*4 ) 
-I-105 : DRAW3 , X-f22 , YTOX , Y-9 : DRAW2T0X , Y : LOOP 



^XONaUQ IN THE SEPTEMBER ISSUE OF AHOY! (ON SALE AUOUST 2). 



COMPILER 



HIGH-SPEED 
PROGRAMS 



CETTINO 



TEXT GAME 

PROGRAMMING, 

PART III 



FIREBIRBtfAMOTf 
CONTEST RESULTS 

16 TOP ENTRIES 
PUBLISHED 
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IN NEW YORK & OUTSIDE 
USA CALL 

(718)692-0071 



FOR CUSTOMER SERVICE 

CALL MON-FRI/9.30AM-5PM 

(716)965-8666 




WAREHOUSE ADDRESS: 33 34m ST. 
BROOKLVN, NV, 11232 

FOR ORDERS & INFORMATION CALL TOLL FREE 

1-800-345-7058 

OPEN 7 DAYS A WEEK FOR ORDERS: 
MONDAY-FRIDAY 9 AM-8 PM / SATURDAY 
& SUNDAY 9:30 AM-6 PM EOT f 

commociore Mcippia 

CM28t ~ 



OR WRITE TO: 

MONTGOMERY GRANT 

MAIL ORDER DEPT. 

P.O. BOX 58 

BROOKLYN, NY., 11230 



FAX NO 2125641497 
TELEX NO. 422132HMOLLER 



WWlGeos 
Program! 



SI 49.95 
CM28: $219.95 

[ NEW C-128Dwlth Built CtAOQ 
In Disk Drive ^H£.^ 

«17(M1 1 2aK EXPANSION MODULE Jtn.U 

#1 7M EXPANSiO N MODUL£ 41 1 1.H 

XETEC JR. INTERFACE _.412.IS 

XETECSR. INTERFACE -_ »S1.»S 

C-12« POWER SUPPLY *i»M 

C44/CMC POWER SUPPLY 42«.H 

VOLKa MM 12«0 BAUD MODEM 
FOR CMC 4 < 2( _tH.t5 

|XETtC U. KERNEL M MB HARD DRIVES FORi | 

CM.C »76» 

c-m wt 

commodore 

DISK DRIVES 

CH541/C $149.95 

Ctis7i $199.95 

1561 $189.95 

154111 $164.95 

MONITORS 

tMl COLOR UOMTOn tltUS 




o 



10M COLOfl U0MT0a_t3M.H 



D 



THOMSON HI-RES RGB 

COLOR MOMTOR. ..$299.95 

MAGNAVOX RGB 13" 

COLOR MONITOR..... $199.95 



_cqmm0dore printers 
^^Clmps-iooo si 69 

'^O MPS-12S0 $239 

DPS-1101 DAISY A^ CQ 
'WHEEL PRINTER *I33 




AMIGA 

500 

IN STOCK-CALL FOR LOW PRICE' 

\AMIGASOOW/10B4 $779 

1 AMIGA 5O0/W84/7010 S979 

AMIGA 2000 IN STOCK 

ALL 'PERIPHERALS IN STOCK 

A-5Q1 5I2K EXPANSION . A-1010 3.5" FLOPPY 
DRIVE-A-IIMOT 5.25' DISK D«VE WITH TRANS- 
FOFMER ■ A- 20SS0 BRIDGE CARD ' A-1 0S4 AGB 
COLOR MONITOR • A-iaSO MODEM • A-tOeO 
SIDECAR ■ A-2090 HARD DRIVE CONTROLLER 
FOR A-2O0O'A-2O10 3.9' INTERNAL DISK DRIVE 
FORA-ZOOO'A.JOSZ JMBEXPANSIQN FORA-SOOO 
SUPRA 20 MB HARD DRIVE FOR A.500 $699 



COMPUTER 
PACKAGES 




#1 COMPLETE PACKAGE 

COMMODORE 128 COMPUTER 
COMMODORE 1541 DiSK DRIVE 
12 MONITOR 
COMPUTER PRINTER 



$469 



COLOR MONITOR 
AOD^rrO 



ro SUBSTITUTE 1571 FOR 
I Ml - ADD t«l> 




#2 DELUXE PACKAGE 

I COMMODORE 128 COMPUTER 

I COMMODORE 1571 DISK DRIVE 

I COMMODORE 1902RCB COLOR MONITORl 

(COMMODORE 1515B0COI PRINTER 



$659 



SPECIAL! 

C-128/D DELUXE PACKAGE 
0-128 COMPUTER W/ BUILT-IN 
DISK 1902 RGB COLOR MONITOR 
• COMMODORE COLOR PRINTER 



$639 



COMPUTER 
PACKAGES 




#3 COMPLETE PACKAGE 

COMMODORE C-64/C COMPUTER 

COMMODORE 1541 DISK DRIVE 

COMPUTER PRINTER 

12" MONITOR 

GEOS SOFTW^ARE PROGRAM 



$349 



COLOR MONITOR ADD jl 10 
#4 COLOR PACKAGE 

COMMODORE C-64C COMPUTER 

COMMODORE 1541, 'C DISK DRIVE 

COMPUTER PRINTER 

COLOR MONITOR 

GEOS SOFTWARE PROGRAM 



$478 



CKAGES 'r^ 




•Apple lie Of ll(! Compulef 

• 5.25" Drive . 1 2" Monilor All 

Hook-up Cables & Adaplors 

PacKage ol 1 Diskettes 

APPLE lie APPLE ME 

$579 $779 

MAC se Z. „..4I M* 

MAC SEW/»MB APPLE 

HARDORI^E (MM 

IMAOEWRITERII Printer J4SI 

APPLE MAC . PACK .t14«* 

APPLE I IQSw/ APPLE 

ROB COLOR MONITOR t, 

J J' DISK DRIVE tl)7l 

SEC 

P-|;^ $439.95 

P-2200 $349.95 

TOSHIBA 

PS-321 SI $479.95 

EPSON 

FX-86E $309 95 

FX-286E $449 95 

LO-500 $31995 

LO-eOO $399.95 

LQ-850 $489.95 

LO-1050 $669-85 

EX-IOOO $47«.-«9 

LX-800 $199.95 

Panasonic 

lOBOi-ll ..$159 95 

10921 „ $289 95 

1091i/II $189 95 



liADING EDGeA 



LEADING EDGE 

MODEL D PACKAGE 

mM pc/m coupA tible 




5l2KflAWCompiiler Key- 
board CieOK Miippy Dnve 
4.77. IBMH2 12-Monilor 
8008-2 Processor 



$729 



SAME PACKAGE 
W/20 MB HAND DRIVI 



E$989 



PRINTERS 



NX-IOOO 

NX- 1000 Rainbow 

NX-15 


,$169 95 
..: 219.95 
.1 289 95 


NB-2410 

NB2415 


.$409.95 
.$539.95 

A 

$199,95 
$21995 
$299.95 

.$189.95 


OKBXVI 

OKIOATA 120 

OKIDATA 180 

OKIDATA 183 


OKIMATE20with 
Plugn' Print 


HP LASERJET 
Sariesll 


. S1629 


V ^ SANYO 

.^„; PR-3000O*tS¥ 
WHEEL LO PRINTER S89 50 




SPECIAL! 
commodore 

PC10-] 



IBM PC/XT 

COMPATIBLE PKG 

51 2K RAM Expandable 10 
640K 360K Floppy Disk 
Drive 12" Monilof 




$499 



SAME PKQ. W/MMB ^-T/)n I 
HARD DRIVE 4>'£9l 



SEAGATE 



» MB HARD DRIVE 
W/ CONTBOLtEB 



I PROFESSIONAL PACKAGE I 

fCiO-i Compuler 51 2K 
£ jpandable lo 640K 360K 
Disk Drive Enhanced 

Keyboard Serial & Parallel 

Ports 12- Monilor All 

HooK-up Cables & Adaplors 

Package o( TO Dtskenes 



$269 



$499 



EBHIiF'IDS 



40 HB HARD DRIVE t 10 MB HARD 
ORrvE NOW IN STOCKI 



I SAME PACKAGE 
lw/20MB HARD DRIVE 



♦769 



C*rt(!i«J Ch«*t, Bunk Ch«k. Money Order*. Viw Am-Ei, Dmef« Club. Cirt-BUnche. Ot>ct>ver Cird ind C.O.D.B icctpiMl. 
No liddiriCMMT tu^chtra? lor crvdK cuti arxitfik. Non-ceriilie<t checti mu*1 wait 4-6 wiwhi foi cieftranc* RY rttidtnuadd 
lippiic»bl« ■#>•« t*K Pncff* •nd itfiiiitiiltly subject lo china* wmhout noliM Not «eipc>n«i&u> fo* typofl/apftic firort. 
Helurn ot aaractiv* mvrcfiandiM muftt 'lav* prior return auinoriuiion number or miurnt v 



■Mll lil liA iMt-MWy ' l ltii ' l M 



Reader Service No. 159 



dere cen be ehjpped mr EipreM-call lor i^tiili. 








1^ 







ECHELON IS 3 true flight simulator which takes you 10 the edge ol our solar system. 
Through the retrieval of artilacts and mformatlon. you must tmd the solution to a 
series of mysterious and puzzling events happening inside the area. 'Echelon' also 
includes 'The LipStik'. Voice Activated Control Headset. Retail price is S44.9&. 

WORLD CLASS LEADER BOARD • Find out why 'World Class' Leader Board is the 
mosi popular golf simuiahon program ever! •World Class' features 3 famous 
courses with outstanding graphics and realistic play. Retail price is S39 95. 

FAMOUS COURSES OF THE WORLD - These disks are available for use with your 
World Class' Leader Board for St9.95, 

VOL. I - Features Harbour Town. Sunningdale, Dorado Beach and Pine Ridge 

VOL. II - Features PeChle Beach. Muirtield. Colonial Counlry Club and 

Glenmoor Country Club. 

VOL III ■ Features SavKgrass, Royal St, Georges. Bamff Springs and 

Firestone Country Club. 

LEADER BOARD TRIPLE PACK ■ Features 'Leader Board'. 'Tournament Disk #1' 
and 'Executive Leader Board" lor $19.95. 



VOICE ACTIVATED 
CONTROL HEADSET 

~ ACCESS 

ioHmirrrKtyoormM 



TRIPLE PACK - Features Beach Head'. 'Raid Over IWoscow. and "Beach Head If 
lor the incredible price of S19.95. 

fWACH 128 - Load your C-64 or C-128 programs 7 times faster with this utility 
cartridge Now works with the 1541, 1571 and the new 1581 disk drives. Retail 
price IS $49.95. 

LIPSTIK PLUS - 'The Voice Activated Control Headset* is used with your joystick 
and gives you a greater feeling of power and conlrol. You'll find yourself more 
absorbed in the action than you ever thought possible. Retail price is $24.95. 

It you c^n'l Imd our pfoduds al your locaf 
dealer, you un ordei direcl Fot mail 
orders, er^close chock or money order, plus 
SI 00 sli)ppir\g ana nanrlling. and specify 
_ — _ ._ . _ . machine version desired Order try phone 
> '" on VISA. MaslerCard or C D hy i:jllmg 
rOLL FRE£ (800) 8?4?b49 
,. . ACCESS SOFTWARE. INC S<5W 5»S . 

"Tgu a r Software incorporated sune no Boumnui. ur mm 



r»f»^^sc 



SUBSCRIBE TO AHOY! 

D 12 issues of Ahoy! for $2a00 ($30.00 Canada and elsewhere) 

□ 24 issues of Ahoy! for $44.00 ($55.00 Canada and elsewhere) 

□ 4 issues of Ahoyl's Amigailser for $8.00 ($10.00 Canada and elsewhere) 
D 8 issues of Ahoy!^ AmigaUser for $15.00 ($19.00 Canada and elsewhere) 

D 8 issues ot^Attay! and 4 issues of Artoy.'s AmigaUser for $2a00 ($30.00 Canada 

and elsewhere) 
a 16 issues of Ahoy! and 8 issues of Ahoyt'^AmigaUser for $44.00 ($55.00 Canada and 

elsewhere) 

D Payment er\closed; $_ 



n Real 



isAmigaus 
sPiPlne. 



a Please charge to credit card checked: 
n MasterCard O VISA Card # 



Exp. Date_ 



Signature^ 
Name 



Address, 
City_ 




„State: 




#? 



SUBSCRIBE TO THE AHOY! DISK MAGAZINE 



D Send me 12 issues of the Ahoy! Disk Magazine for $97.00 ($135.00 Canada 
and elsewhere) 

in Send me 24 issues of the Ahoy! Disk Magazine for $180.00v^$250.00 

Canada and elsewhere) 'W!^i^^HUli 1 1 1 lH '^ 

a Payment enclosed: $ ^ ri Rease bill me. 



D Please charge to credit card checked: 
n MasterCard D VISA Card # 



Exp. Date. 



Signature. 
Name 



\^ 



Address. 



City. 



.State. 



-^ip- 
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READER SERVICE CARD 

To request additional information on any product aulvertised or otherwise pictured in this issue of AhoyI 
that Is accompanied by a reader service number, circle the corresponding number below and mail 
this card. We will promptly forward your request to the designated companies. 
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2*1213 2*3t*41*Il**lSTint**3*O2ni«2*31*42H2Nlt7t**»tM«»11*im»43DiI0«3ll71«3O*310 
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4. a 35.44 9. a 4*44 (. O IH4 T. □ I 
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1. n fakw M itiii 4. □ «>D*a4 gmdiut* 

t. O inaMtf^ dagn* 1. ' .1 PhO 



D. FnMn wMdi of th* 

I, 3 

1. a fimii 

4. G othar 



I dU you obtain yoiveopy 
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Address. 
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_Stat0. 
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